[project @ 1999-09-06 14:36:03 by simonmar]

fromInt stuff

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

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}

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}
 
 %************************************************************************