Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/b9e6c7c991198804f35172d36f6cbc07eb14464d >--------------------------------------------------------------- commit b9e6c7c991198804f35172d36f6cbc07eb14464d Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Jul 27 18:36:16 2011 +0100 Supress warning in Split >--------------------------------------------------------------- compiler/supercompile/Supercompile/Drive/Split.hs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Split.hs b/compiler/supercompile/Supercompile/Drive/Split.hs index f29aacc..78ac9c2 100644 --- a/compiler/supercompile/Supercompile/Drive/Split.hs +++ b/compiler/supercompile/Supercompile/Drive/Split.hs @@ -933,6 +933,7 @@ splitStackFrame :: UniqSupply splitStackFrame ctxt_ids ids kf scruts bracketed_hole | Update x' <- tagee kf = splitUpdate ids (tag kf) scruts x' bracketed_hole | otherwise = ([], M.empty, case tagee kf of + Update x' -> pprPanic "splitStackFrame" (text "Encountered update frame for" <+> pPrint x' <+> text "that was handled above") Apply x2' -> zipBracketeds (\[e] -> e `app` x2') (\[fvs] -> fvs `extendVarSet` x2') [[]] (\_ -> Nothing) [bracketed_hole] TyApply ty' -> zipBracketeds (\[e] -> e `tyApp` ty') (\[fvs] -> fvs `unionVarSet` tyVarsOfType ty') [[]] (\_ -> Nothing) [bracketed_hole] CastIt co' -> zipBracketeds (\[e] -> e `cast` co') (\[fvs] -> fvs `unionVarSet` tyCoVarsOfCo co') [[]] (\_ -> Nothing) [bracketed_hole] _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc