[project @ 1998-07-08 09:52:32 by sof]

post 3.02 export indexAddrOffAddr from Addr, not ByteArray

diff --git a/ghc/compiler/utils/Argv.lhs b/ghc/compiler/utils/Argv.lhs
index 6d406a8..1420bfc 100644 (file)
--- a/ghc/compiler/utils/Argv.lhs
+++ b/ghc/compiler/utils/Argv.lhs
@@ -10,8 +10,12 @@ module Argv ( argv ) where
 
 import FastString
 
+#if __GLASGOW_HASKELL__ <= 302
 import GlaExts         ( Addr )
 import ByteArray       ( indexAddrOffAddr )
+#else
+import Addr            ( Addr, indexAddrOffAddr )
+#endif
 
 argv :: [FAST_STRING]
 argv = unpackArgv ``prog_argv'' (``prog_argc''::Int)