[commit: ghc] supercompiler: Supress warning in Split (b9e6c7c)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : supercompiler

http://hackage.haskell.org/trac/ghc/changeset/b9e6c7c991198804f35172d36f6cbc07eb14464d

>---------------------------------------------------------------

commit b9e6c7c991198804f35172d36f6cbc07eb14464d
Author: Max Bolingbroke <[email protected]>
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]