Make traceBinIFaceReading use log_action
authorIan Lynagh <igloo@earth.li>
Mon, 28 May 2012 22:14:58 +0000 (23:14 +0100)
committerIan Lynagh <igloo@earth.li>
Mon, 28 May 2012 22:14:58 +0000 (23:14 +0100)
It was printing directly to stdout

compiler/iface/BinIface.hs

index 3ef6d09..305fa54 100644 (file)
@@ -85,7 +85,7 @@ readBinIface_ :: DynFlags -> CheckHiWay -> TraceBinIFaceReading -> FilePath
 readBinIface_ dflags checkHiWay traceBinIFaceReading hi_path ncu = do
     let printer :: SDoc -> IO ()
         printer = case traceBinIFaceReading of
-                      TraceBinIFaceReading -> \sd -> printSDoc sd defaultDumpStyle
+                      TraceBinIFaceReading -> \sd -> log_action dflags SevOutput noSrcSpan defaultDumpStyle sd
                       QuietBinIFaceReading -> \_ -> return ()
         wantedGot :: Outputable a => String -> a -> a -> IO ()
         wantedGot what wanted got =