From: simonpj <unknown>
Date: Mon, 30 Aug 1999 18:23:40 +0000 (+0000)
Subject: [project @ 1999-08-30 18:19:39 by simonpj]
X-Git-Tag: Approximately_9120_patches~5854
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b07b68d31be9d32f283cdfa6178b73ea99df6411;p=ghc-hetmet.git

[project @ 1999-08-30 18:19:39 by simonpj]
Adjust library imports to get fromInt/toInt from PrelNum
---

diff --git a/ghc/lib/exts/GlaExts.lhs b/ghc/lib/exts/GlaExts.lhs
index 050e031..61b1ea6 100644
--- a/ghc/lib/exts/GlaExts.lhs
+++ b/ghc/lib/exts/GlaExts.lhs
@@ -50,6 +50,9 @@ module GlaExts
         -- the representation of some basic types:
         Int(..),Addr(..),Word(..),Float(..),Double(..),Integer(..),Char(..),
 
+	-- The non-standard fromInt and toInt methods
+	Num( fromInt ), Integral( toInt ),
+
 	-- Fusion
 	build, augment,
 
@@ -63,6 +66,7 @@ module GlaExts
 
 import PrelGHC
 import PrelBase
+import PrelNum ( Num(..), Integral(..) )	-- To get fromInt/toInt
 import PrelAddr   ( Addr(..), Word(..) )
 import PrelST
 import IOExts
diff --git a/ghc/lib/exts/Int.lhs b/ghc/lib/exts/Int.lhs
index 23caa79..894386d 100644
--- a/ghc/lib/exts/Int.lhs
+++ b/ghc/lib/exts/Int.lhs
@@ -116,6 +116,7 @@ import PrelAddr ( Int64(..), Word64(..), Addr(..), Word(..) )
 #endif
 import Ix
 import Bits
+import PrelNum ( Num(..), Integral(..) )	-- To get fromInt/toInt
 import Ratio   ( (%) )
 import Numeric ( readDec )
 import Word    ( Word32 )
diff --git a/ghc/lib/exts/Word.lhs b/ghc/lib/exts/Word.lhs
index fdfbee8..480f28a 100644
--- a/ghc/lib/exts/Word.lhs
+++ b/ghc/lib/exts/Word.lhs
@@ -125,6 +125,7 @@ import PrelIOBase
 import PrelAddr
 #endif
 import Ix
+import PrelNum ( Num(..), Integral(..) )	-- To get fromInt/toInt
 import Bits
 import Ratio
 import Numeric (readDec, showInt)
diff --git a/ghc/lib/std/CPUTime.lhs b/ghc/lib/std/CPUTime.lhs
index a90c8ae..32297e8 100644
--- a/ghc/lib/std/CPUTime.lhs
+++ b/ghc/lib/std/CPUTime.lhs
@@ -25,6 +25,7 @@ import PrelIOBase
 import PrelST
 #endif
 import IO		( ioError )
+import PrelNum ( Num(..), Integral(..) )	-- To get fromInt/toInt
 import Ratio
 
 #ifdef __HUGS__
diff --git a/ghc/lib/std/Random.lhs b/ghc/lib/std/Random.lhs
index 998ed0f..b914d74 100644
--- a/ghc/lib/std/Random.lhs
+++ b/ghc/lib/std/Random.lhs
@@ -32,6 +32,7 @@ import CPUTime (getCPUTime)
 import PrelST
 import PrelRead
 import PrelShow
+import PrelNum		-- So we get fromInt, toInt
 import PrelIOBase
 import PrelNumExtra ( float2Double, double2Float )
 import PrelBase