diff options
Diffstat (limited to 'compiler/vectorise/Vectorise/Monad/Base.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise/Monad/Base.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise/Monad/Base.hs b/compiler/vectorise/Vectorise/Monad/Base.hs index 1765c8aef7..177b078a95 100644 --- a/compiler/vectorise/Vectorise/Monad/Base.hs +++ b/compiler/vectorise/Vectorise/Monad/Base.hs @@ -132,7 +132,7 @@ traceVt herald doc -- dumpOptVt :: GeneralFlag -> String -> SDoc -> VM () dumpOptVt flag header doc - = do { b <- liftDs $ doptM flag + = do { b <- liftDs $ goptM flag ; if b then dumpVt header doc else return () |