diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 20:58:33 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 20:58:33 +0100 |
| commit | 5716a2f849a53c48f6171101fed7a473107f0756 (patch) | |
| tree | 4976930751c8ce9ea1dad166cce126ce282ab8b8 /compiler/iface/BinIface.hs | |
| parent | 65152943e6fe80dc5314e897dbf910137b01c47b (diff) | |
| download | haskell-5716a2f849a53c48f6171101fed7a473107f0756.tar.gz | |
Pass DynFlags to the LogAction
A side-effect is that we can no longer use the LogAction in
defaultErrorHandler, as we don't have DynFlags at that point.
But all that defaultErrorHandler did is to print Strings as
SevFatal, so now it takes a 'FatalMessager' instead.
Diffstat (limited to 'compiler/iface/BinIface.hs')
| -rw-r--r-- | compiler/iface/BinIface.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/BinIface.hs b/compiler/iface/BinIface.hs index a69656533c..5d1c48f183 100644 --- a/compiler/iface/BinIface.hs +++ b/compiler/iface/BinIface.hs @@ -86,7 +86,7 @@ readBinIface_ :: DynFlags -> CheckHiWay -> TraceBinIFaceReading -> FilePath readBinIface_ dflags checkHiWay traceBinIFaceReading hi_path ncu = do let printer :: SDoc -> IO () printer = case traceBinIFaceReading of - TraceBinIFaceReading -> \sd -> log_action dflags SevOutput noSrcSpan defaultDumpStyle sd + TraceBinIFaceReading -> \sd -> log_action dflags dflags SevOutput noSrcSpan defaultDumpStyle sd QuietBinIFaceReading -> \_ -> return () wantedGot :: Outputable a => String -> a -> a -> IO () wantedGot what wanted got = |