[commit: ghc] : Warnings only (7a40ef0)

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

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/7a40ef0b4b719c25c7e0e0c3542fd9e2c6d127c9

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

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