From c8e8f6e917ae69b425871084000c2a3a39978dc7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 6 Sep 1999 14:38:41 +0000
Subject: [PATCH] [project @ 1999-09-06 14:36:03 by simonmar] fromInt stuff

---
 ghc/compiler/deSugar/DsForeign.lhs    |    4 ++++
 ghc/compiler/simplCore/ConFold.lhs    |    4 ++++
 ghc/compiler/typecheck/TcGenDeriv.lhs |    4 ++++
 3 files changed, 12 insertions(+)

diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs
index f0370b8..b5a1154 100644
--- a/ghc/compiler/deSugar/DsForeign.lhs
+++ b/ghc/compiler/deSugar/DsForeign.lhs
@@ -43,6 +43,10 @@ import TysWiredIn	( unitTyCon, addrTy, stablePtrTyCon,
 			)
 import Unique
 import Outputable
+
+#if __GLASGOW_HASKELL__ >= 404
+import GlaExts		( fromInt )
+#endif
 \end{code}
 
 Desugaring of @foreign@ declarations is naturally split up into
diff --git a/ghc/compiler/simplCore/ConFold.lhs b/ghc/compiler/simplCore/ConFold.lhs
index a96758f..fe8186f 100644
--- a/ghc/compiler/simplCore/ConFold.lhs
+++ b/ghc/compiler/simplCore/ConFold.lhs
@@ -28,6 +28,10 @@ import Type		( splitTyConApp_maybe )
 import Maybes		( maybeToBool )
 import Char		( ord, chr )
 import Outputable
+
+#if __GLASGOW_HASKELL__ >= 404
+import GlaExts		( fromInt )
+#endif
 \end{code}
 
 \begin{code}
diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index 28ae0d9..ebb0144 100644
--- a/ghc/compiler/typecheck/TcGenDeriv.lhs
+++ b/ghc/compiler/typecheck/TcGenDeriv.lhs
@@ -65,6 +65,10 @@ import Maybes		( maybeToBool )
 import Constants
 import List		( partition, intersperse )
 import Char		( isAlpha )
+
+#if __GLASGOW_HASKELL__ >= 404
+import GlaExts		( fromInt )
+#endif
 \end{code}
 
 %************************************************************************
-- 
1.7.10.4