Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/6b68150e0d1793051e055064d4567ac59a075852 >--------------------------------------------------------------- commit 6b68150e0d1793051e055064d4567ac59a075852 Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Thu Apr 19 15:53:44 2012 +0100 Space only >--------------------------------------------------------------- .../supercompile/Supercompile/Evaluator/Syntax.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile/Evaluator/Syntax.hs b/compiler/supercompile/Supercompile/Evaluator/Syntax.hs index d245879..513351b 100644 --- a/compiler/supercompile/Supercompile/Evaluator/Syntax.hs +++ b/compiler/supercompile/Supercompile/Evaluator/Syntax.hs @@ -306,7 +306,7 @@ stackFrameType' kf hole_ty = case kf of qaType :: Anned QA -> Type qaType anned_qa = case caseAnnedQA anned_qa of Left anned_q -> idType (extract anned_q) - Right anned_a ->answerType anned_a + Right anned_a -> answerType anned_a answerType :: Anned Answer -> Type answerType a = case annee a of _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
