[commit: ghc] master: Fix Word64ToInteger conversion rule. (550f8b5)

[Paolo Capriotti]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/550f8b5d83529868e074a774cf059e9ce1f040d5

>---------------------------------------------------------------

commit 550f8b5d83529868e074a774cf059e9ce1f040d5
Author: Paolo Capriotti <p.capriotti at gmail.com>
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))