diff options
Diffstat (limited to 'compiler/vectorise/Vectorise')
| -rw-r--r-- | compiler/vectorise/Vectorise/Monad.hs | 2 | ||||
| -rw-r--r-- | compiler/vectorise/Vectorise/Monad/Base.hs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/vectorise/Vectorise/Monad.hs b/compiler/vectorise/Vectorise/Monad.hs index 3e6c33ac7d..4e9726a598 100644 --- a/compiler/vectorise/Vectorise/Monad.hs +++ b/compiler/vectorise/Vectorise/Monad.hs @@ -105,7 +105,7 @@ initV hsc_env guts info thing_inside Yes genv _ x -> return $ Just (new_info genv, x) No reason -> do { unqual <- mkPrintUnqualifiedDs ; liftIO $ - printInfoForUser dflags unqual $ + printOutputForUser dflags unqual $ mkDumpDoc "Warning: vectorisation failure:" reason ; return Nothing } diff --git a/compiler/vectorise/Vectorise/Monad/Base.hs b/compiler/vectorise/Vectorise/Monad/Base.hs index 3cb6adb7a6..a3089e3e62 100644 --- a/compiler/vectorise/Vectorise/Monad/Base.hs +++ b/compiler/vectorise/Vectorise/Monad/Base.hs @@ -117,7 +117,7 @@ emitVt :: String -> SDoc -> VM () emitVt herald doc = liftDs $ do dflags <- getDynFlags - liftIO . printInfoForUser dflags alwaysQualify $ + liftIO . printOutputForUser dflags alwaysQualify $ hang (text herald) 2 doc -- |Output a trace message if -ddump-vt-trace is active. @@ -144,7 +144,7 @@ dumpVt :: String -> SDoc -> VM () dumpVt header doc = do { unqual <- liftDs mkPrintUnqualifiedDs ; dflags <- liftDs getDynFlags - ; liftIO $ printInfoForUser dflags unqual (mkDumpDoc header doc) + ; liftIO $ printOutputForUser dflags unqual (mkDumpDoc header doc) } |