Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/550f8b5d83529868e074a774cf059e9ce1f040d5 >--------------------------------------------------------------- commit 550f8b5d83529868e074a774cf059e9ce1f040d5 Author: Paolo Capriotti <[email protected]> Date: Mon Jun 25 11:31:52 2012 +0100 Fix Word64ToInteger conversion rule. >--------------------------------------------------------------- compiler/prelude/PrelRules.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/prelude/PrelRules.lhs b/compiler/prelude/PrelRules.lhs index db45bac..8bc070f 100644 --- a/compiler/prelude/PrelRules.lhs +++ b/compiler/prelude/PrelRules.lhs @@ -809,7 +809,7 @@ match_Word64ToInteger :: Id -> [Expr CoreBndr] -> Maybe (Expr CoreBndr) match_Word64ToInteger id id_unf [xl] - | Just (MachWord x) <- exprIsLiteral_maybe id_unf xl + | Just (MachWord64 x) <- exprIsLiteral_maybe id_unf xl = case idType id of FunTy _ integerTy -> Just (Lit (LitInteger x integerTy)) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
