From b07b68d31be9d32f283cdfa6178b73ea99df6411 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 30 Aug 1999 18:23:40 +0000
Subject: [PATCH] [project @ 1999-08-30 18:19:39 by simonpj] Adjust library
 imports to get fromInt/toInt from PrelNum

---
 ghc/lib/exts/GlaExts.lhs |    4 ++++
 ghc/lib/exts/Int.lhs     |    1 +
 ghc/lib/exts/Word.lhs    |    1 +
 ghc/lib/std/CPUTime.lhs  |    1 +
 ghc/lib/std/Random.lhs   |    1 +
 5 files changed, 8 insertions(+)

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
-- 
1.7.10.4