diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:35:41 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 21:35:41 +0100 |
| commit | 9d246714d9f3646030b2788030b503664707c46c (patch) | |
| tree | 92934454880e00681743ae5a5b97b24990187e9a /compiler/main | |
| parent | 310ded12b731e5700b4af739a080c3e23904b41e (diff) | |
| download | haskell-9d246714d9f3646030b2788030b503664707c46c.tar.gz | |
Pass DynFlags down to hPrintDump
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/DynFlags.hs | 2 | ||||
| -rw-r--r-- | compiler/main/DynFlags.hs-boot | 4 | ||||
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 2 |
3 files changed, 6 insertions, 2 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index ccd0a75297..52982c1185 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -976,7 +976,7 @@ defaultLogAction :: LogAction defaultLogAction dflags severity srcSpan style msg = case severity of SevOutput -> printSDoc msg style - SevDump -> hPrintDump stdout msg + SevDump -> hPrintDump dflags stdout msg SevInfo -> printErrs msg style SevFatal -> printErrs msg style _ -> do hPutChar stderr '\n' diff --git a/compiler/main/DynFlags.hs-boot b/compiler/main/DynFlags.hs-boot new file mode 100644 index 0000000000..f7d17f496b --- /dev/null +++ b/compiler/main/DynFlags.hs-boot @@ -0,0 +1,4 @@ + +module DynFlags where + +data DynFlags diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index eeb5e91c8a..c97ab2aef2 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -247,7 +247,7 @@ dumpSDoc dflags dflag hdr doc writeIORef gdref (Set.insert fileName gd) createDirectoryIfMissing True (takeDirectory fileName) handle <- openFile fileName mode - hPrintDump handle doc + hPrintDump dflags handle doc hClose handle -- write the dump to stdout |