[commit: ghc] : Comment out match failure trace (very verbose) (caa251b)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : http://hackage.haskell.org/trac/ghc/changeset/caa251bcc71d1c878132f86b67ac21bc65e546e3 >--------------------------------------------------------------- commit caa251bcc71d1c878132f86b67ac21bc65e546e3 Author: Max Bolingbroke <[email protected]> Date: Wed Feb 15 22:17:48 2012 +0000 Comment out match failure trace (very verbose) >--------------------------------------------------------------- compiler/supercompile/Supercompile/Drive/Match.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Match.hs b/compiler/supercompile/Supercompile/Drive/Match.hs index 3717fda..a4faa44 100644 --- a/compiler/supercompile/Supercompile/Drive/Match.hs +++ b/compiler/supercompile/Supercompile/Drive/Match.hs @@ -76,7 +76,7 @@ guard msg False = fail msg runMatch :: Match a -> Maybe a runMatch (Match (Right x)) = Just x -runMatch (Match (Left _msg)) = trace ("match " ++ _msg) Nothing +runMatch (Match (Left _msg)) = {- trace ("match " ++ _msg) -} Nothing --runMatch = unMatch matchRnEnv2 :: (a -> FreeVars) -> a -> a -> RnEnv2