Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : new-demand
http://hackage.haskell.org/trac/ghc/changeset/43d5d229c50182d9c087aebe386a00b7629c458f >--------------------------------------------------------------- commit 43d5d229c50182d9c087aebe386a00b7629c458f Author: Ilya Sergey <[email protected]> Date: Sat Jul 14 19:48:51 2012 +0100 correct demand for primitive operations >--------------------------------------------------------------- compiler/basicTypes/MkId.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs index 45f880a..1deea1c 100644 --- a/compiler/basicTypes/MkId.lhs +++ b/compiler/basicTypes/MkId.lhs @@ -748,7 +748,7 @@ mkPrimOpId :: PrimOp -> Id mkPrimOpId prim_op = id where - (tyvars,arg_tys,res_ty, arity, strict_sig, _nd_strict_sig) = primOpSig prim_op + (tyvars,arg_tys,res_ty, arity, strict_sig, nd_strict_sig) = primOpSig prim_op ty = mkForAllTys tyvars (mkFunTys arg_tys res_ty) name = mkWiredInName gHC_PRIM (primOpOcc prim_op) (mkPrimOpIdUnique (primOpTag prim_op)) @@ -759,7 +759,7 @@ mkPrimOpId prim_op `setSpecInfo` mkSpecInfo (primOpRules prim_op name) `setArityInfo` arity `setStrictnessInfo` Just strict_sig --- `nd_setStrictnessInfo` Just nd_strict_sig + `nd_setStrictnessInfo` Just nd_strict_sig -- For each ccall we manufacture a separate CCallOpId, giving it -- a fresh unique, a type that is correct for this particular ccall, _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
