Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/2ce5cd2e768fbb21a9585279d85d50f5dd2a6761 >--------------------------------------------------------------- commit 2ce5cd2e768fbb21a9585279d85d50f5dd2a6761 Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Mar 21 17:09:22 2012 +0000 Comment only about evaluatePrim >--------------------------------------------------------------- .../Supercompile/Evaluator/Evaluate.hs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs b/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs index 45a189a..9cf213e 100644 --- a/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs +++ b/compiler/supercompile/Supercompile/Evaluator/Evaluate.hs @@ -27,6 +27,7 @@ import Pair import Demand (splitStrictSig, isBotRes) +-- FIXME: this doesn't really work very well if the Answers are indirections, which is a common case! evaluatePrim :: InScopeSet -> Tag -> PrimOp -> [Type] -> [Answer] -> Maybe (Anned Answer) evaluatePrim iss tg pop tys args = do args' <- fmap (map CoreSyn.Type tys ++) $ mapM to args _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
