Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/81f43eb4fb5b40e65ae5bb435bc2ae8eb2f3ffca >--------------------------------------------------------------- commit 81f43eb4fb5b40e65ae5bb435bc2ae8eb2f3ffca Author: Ian Lynagh <i...@well-typed.com> Date: Mon Oct 15 23:40:50 2012 +0100 Remove unused dumpIfSet_dyn_or >--------------------------------------------------------------- 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 b164d1c..af8696f 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, _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
