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