From 86add45dbfb6f962b65e371143dd467ae783f9e7 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sun, 5 Jun 2011 14:09:53 +0100 Subject: [PATCH 1/1] Make dumpIfSet_dyn_or use dumpSDoc This means that for example ghc -ddump-simpl -ddump-to-file ... now puts the simpl output in a file, rather htan sending it to stdout. --- compiler/main/ErrUtils.lhs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs index 1c7a389..a0a9f0e 100644 --- a/compiler/main/ErrUtils.lhs +++ b/compiler/main/ErrUtils.lhs @@ -190,11 +190,11 @@ dumpIfSet_dyn dflags flag hdr doc = return () dumpIfSet_dyn_or :: DynFlags -> [DynFlag] -> String -> SDoc -> IO () -dumpIfSet_dyn_or dflags flags hdr doc - | or [dopt flag dflags | flag <- flags] - || verbosity dflags >= 4 - = printDump (mkDumpDoc hdr doc) - | otherwise = return () +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 -- 1.7.10.4