diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-19 20:35:19 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-19 20:35:19 +0100 |
| commit | 429c81c5ae861afd0e6910b7c0d331e65e8d4022 (patch) | |
| tree | cff5e73aa7cdff9d42bf8ae4234031066b5a70bb /compiler/simplCore/Simplify.lhs | |
| parent | 8e189a7d9924166e9bb4c4e0200fa64512a7d151 (diff) | |
| parent | 6c547271343be0620503f07508b109b170562af6 (diff) | |
| download | haskell-429c81c5ae861afd0e6910b7c0d331e65e8d4022.tar.gz | |
Merge branch 'master' of http://darcs.haskell.org/ghc
Diffstat (limited to 'compiler/simplCore/Simplify.lhs')
| -rw-r--r-- | compiler/simplCore/Simplify.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs index ecde3560e2..1c50c6b4c8 100644 --- a/compiler/simplCore/Simplify.lhs +++ b/compiler/simplCore/Simplify.lhs @@ -1585,7 +1585,7 @@ tryRules env rules fn args call_cont | otherwise = return () - log_rule dflags dflag hdr details = liftIO . dumpSDoc dflags dflag "" $ + log_rule dflags flag hdr details = liftIO . dumpSDoc dflags flag "" $ sep [text hdr, nest 4 details] \end{code} |