[commit: ghc] : Space only (6b68150)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : http://hackage.haskell.org/trac/ghc/changeset/6b68150e0d1793051e055064d4567ac59a075852 >--------------------------------------------------------------- commit 6b68150e0d1793051e055064d4567ac59a075852 Author: Max Bolingbroke <[email protected]> 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