diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 18:52:05 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 18:52:05 +0100 |
| commit | ab50c9c527d19f4df7ee6742b6d79c855d57c9b8 (patch) | |
| tree | ac78c3fda6f3a8ec8235345f7b02518e0d809ba0 /ghc/Main.hs | |
| parent | 543ec0852722318665d2f5228e29d44a5fc973f5 (diff) | |
| download | haskell-ab50c9c527d19f4df7ee6742b6d79c855d57c9b8.tar.gz | |
Pass DynFlags down to showSDoc
Diffstat (limited to 'ghc/Main.hs')
| -rw-r--r-- | ghc/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/Main.hs b/ghc/Main.hs index 616309009b..1f6fb6c36b 100644 --- a/ghc/Main.hs +++ b/ghc/Main.hs @@ -770,7 +770,7 @@ abiHash strs = do r <- findImportedModule hsc_env modname Nothing case r of Found _ m -> return m - _error -> ghcError $ CmdLineError $ showSDoc $ + _error -> ghcError $ CmdLineError $ showSDoc dflags $ cannotFindInterface dflags modname r mods <- mapM find_it (map fst strs) @@ -785,7 +785,7 @@ abiHash strs = do mapM_ (put_ bh . mi_mod_hash) ifaces f <- fingerprintBinMem bh - putStrLn (showSDoc (ppr f)) + putStrLn (showPpr dflags f) -- ----------------------------------------------------------------------------- -- Util |