Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/5d06bb4b065615fd392641490dcf57732e53ee41 >--------------------------------------------------------------- commit 5d06bb4b065615fd392641490dcf57732e53ee41 Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Jul 4 16:36:33 2012 +0100 Add a FIXME >--------------------------------------------------------------- compiler/supercompile/Supercompile/Drive/Split.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Split.hs b/compiler/supercompile/Supercompile/Drive/Split.hs index b8479eb..5a2062b 100644 --- a/compiler/supercompile/Supercompile/Drive/Split.hs +++ b/compiler/supercompile/Supercompile/Drive/Split.hs @@ -870,7 +870,7 @@ splitt ctxt_ids (gen_kfs, gen_xs) deeds (Heap h ids, named_k, (mb_anned_qa, brac h_cheap_and_phantom0 = M.map extract_cheap_hb h h_cheap_and_phantom | (_, Tagged _ (Update x')) `Car` _ <- named_k -- NB: by normalisation, there can't be a cast before the update , Just anned_qa <- mb_anned_qa - , Right anned_a <- caseAnnedQA anned_qa + , Right anned_a <- caseAnnedQA anned_qa -- FIXME: having a question here might also be legit , let in_e@(_, e) = annedAnswerToInAnnedTerm ids anned_a = M.insert x' ((internallyBound in_e) { howBound = howToBindCheap e }) h_cheap_and_phantom0 | otherwise _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
