Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/7a40ef0b4b719c25c7e0e0c3542fd9e2c6d127c9 >--------------------------------------------------------------- commit 7a40ef0b4b719c25c7e0e0c3542fd9e2c6d127c9 Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Fri Aug 5 16:17:15 2011 +0100 Warnings only >--------------------------------------------------------------- .../Supercompile/Evaluator/Evaluate.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs b/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs index 16898ab..fcf0d45 100644 --- a/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs +++ b/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs @@ -98,8 +98,8 @@ step' normalising ei_state = where go_entry :: Either State UnnormalisedState -> (Bool, State) go_entry (Left (deeds, heap, k, anned_qa)) = case annee anned_qa of - Question x' -> go_question (deeds, heap, k, fmap (\(Question x) -> x) anned_qa) - Answer a -> go_answer (deeds, heap, k, fmap (\(Answer a) -> a) anned_qa) + Question _ -> go_question (deeds, heap, k, fmap (\(Question x') -> x') anned_qa) + Answer _ -> go_answer (deeds, heap, k, fmap (\(Answer a) -> a) anned_qa) go_entry (Right state) = go state go :: UnnormalisedState -> (Bool, State) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc