Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/480ac43ed16370c33f3ecf575d7aabad4842b49a >--------------------------------------------------------------- commit 480ac43ed16370c33f3ecf575d7aabad4842b49a Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Mon Jan 16 16:15:39 2012 +0000 Remove warning >--------------------------------------------------------------- compiler/supercompile/Supercompile/Drive/Match.hs | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Match.hs b/compiler/supercompile/Supercompile/Drive/Match.hs index a28a27b..dd13f30 100644 --- a/compiler/supercompile/Supercompile/Drive/Match.hs +++ b/compiler/supercompile/Supercompile/Drive/Match.hs @@ -75,8 +75,8 @@ guard _ True = return () 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 (Right x)) = Just x +runMatch (Match (Left _msg)) = {- trace ("match " ++ msg) -} Nothing --runMatch = unMatch matchRnEnv2 :: (a -> FreeVars) -> a -> a -> RnEnv2 @@ -537,7 +537,7 @@ matchPureHeap rn2 init_free_eqs h_l h_r | x `elemVarSet` used -> Nothing | otherwise -> Just (used `extendVarSet` x, annee e')) - failLoop rest = fail $ "matchLoop" ++ showPpr lr ++ ": " ++ rest + failLoop rest = fail $ "matchLoop: " ++ showPpr lr ++ ": " ++ rest go_template mextras extra_free_eqs used_l' used_r' = do -- Don't forget to match types/unfoldings of binders as well: bndr_free_eqs <- mextras _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
