From: sof <unknown>
Date: Wed, 8 Jul 1998 09:52:32 +0000 (+0000)
Subject: [project @ 1998-07-08 09:52:32 by sof]
X-Git-Tag: Approx_2487_patches~528
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5f2977334cd9957cc75e8a36952628517afdfbe8;p=ghc-hetmet.git

[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
--- 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)