diff options
Diffstat (limited to 'compiler/GHC/Iface/Binary.hs')
| -rw-r--r-- | compiler/GHC/Iface/Binary.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/Iface/Binary.hs b/compiler/GHC/Iface/Binary.hs index 49e3b00e50..a14cb17e04 100644 --- a/compiler/GHC/Iface/Binary.hs +++ b/compiler/GHC/Iface/Binary.hs @@ -101,8 +101,7 @@ readBinIface_ dflags checkHiWay traceBinIFaceReading hi_path ncu = do NoReason SevOutput noSrcSpan - defaultDumpStyle - sd + $ withPprStyle defaultDumpStyle sd QuietBinIFaceReading -> \_ -> return () wantedGot :: String -> a -> a -> (a -> SDoc) -> IO () |