Use explicit Word32/Int32 in place of Int in the on-disk .hi file

[ghc-hetmet.git] / compiler / basicTypes / Name.lhs

diff --git a/compiler/basicTypes/Name.lhs b/compiler/basicTypes/Name.lhs
index 9f23f96..cb6785a 100644 (file)
--- a/compiler/basicTypes/Name.lhs
+++ b/compiler/basicTypes/Name.lhs
@@ -83,6 +83,7 @@ import FastString
 import Outputable
 
 import Data.Array
+import Data.Word        ( Word32 )
 \end{code}
 
 %************************************************************************
@@ -368,7 +369,7 @@ instance Binary Name where
 
    get bh = do
         i <- get bh
-        return $! (ud_symtab (getUserData bh) ! i)
+        return $! (ud_symtab (getUserData bh) ! fromIntegral (i::Word32))
 \end{code}
 
 %************************************************************************