diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-10-15 23:40:50 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-10-15 23:40:50 +0100 |
| commit | 81f43eb4fb5b40e65ae5bb435bc2ae8eb2f3ffca (patch) | |
| tree | 067000be43f8e3932a7c9d9e9880afe05c5f79e0 /compiler/main/ErrUtils.lhs | |
| parent | bb8cb0e72b4a720f32c842d0f7e6b2dad2328578 (diff) | |
| download | haskell-81f43eb4fb5b40e65ae5bb435bc2ae8eb2f3ffca.tar.gz | |
Remove unused dumpIfSet_dyn_or
Diffstat (limited to 'compiler/main/ErrUtils.lhs')
| -rw-r--r-- | compiler/main/ErrUtils.lhs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index b164d1c6c7..af8696f956 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -19,7 +19,7 @@ module ErrUtils ( ghcExit, doIfSet, doIfSet_dyn, - dumpIfSet, dumpIfSet_dyn, dumpIfSet_dyn_or, + dumpIfSet, dumpIfSet_dyn, mkDumpDoc, dumpSDoc, -- * Messages during compilation @@ -212,13 +212,6 @@ dumpIfSet_dyn dflags flag hdr doc | otherwise = return () -dumpIfSet_dyn_or :: DynFlags -> [DynFlag] -> String -> SDoc -> IO () -dumpIfSet_dyn_or _ [] _ _ = return () -dumpIfSet_dyn_or dflags (flag : flags) hdr doc - = if dopt flag dflags || verbosity dflags >= 4 - then dumpSDoc dflags flag hdr doc - else dumpIfSet_dyn_or dflags flags hdr doc - mkDumpDoc :: String -> SDoc -> SDoc mkDumpDoc hdr doc = vcat [blankLine, |