[project @ 2000-04-13 19:31:05 by panne]

[ghc-hetmet.git] / ghc / compiler / utils / PrimPacked.lhs

diff --git a/ghc/compiler/utils/PrimPacked.lhs b/ghc/compiler/utils/PrimPacked.lhs
index fe01b0b..aa38d6a 100644 (file)
--- a/ghc/compiler/utils/PrimPacked.lhs
+++ b/ghc/compiler/utils/PrimPacked.lhs
@@ -31,7 +31,7 @@ module PrimPacked
 #include "HsVersions.h"
 
 import GlaExts
-import Addr    ( Addr(..) )
+import PrelAddr        ( Addr(..) )
 import ST
 import Foreign
 -- ForeignObj is now exported abstractly.
@@ -185,7 +185,7 @@ new_ps_array size = ST $ \ s ->
 #if __GLASGOW_HASKELL__ < 400
     case (newCharArray# size s)          of { StateAndMutableByteArray# s2# barr# ->
     STret s2# (MutableByteArray bot barr#) }
-#elsif __GLASGOW_HASKELL__ < 405
+#elif __GLASGOW_HASKELL__ < 405
     case (newCharArray# size s)          of { (# s2#, barr# #) ->
     (# s2#, MutableByteArray bot barr# #) }
 #else