From 98e4972a19709ca3eea15d9933fc9ca2478b36c7 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 6 Sep 1999 11:30:14 +0000
Subject: [PATCH] [project @ 1999-09-06 11:30:14 by simonmar] get fromInt from
 the right place.

---
 ghc/compiler/basicTypes/Const.lhs |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/ghc/compiler/basicTypes/Const.lhs b/ghc/compiler/basicTypes/Const.lhs
index dd0bda4..0e627c4 100644
--- a/ghc/compiler/basicTypes/Const.lhs
+++ b/ghc/compiler/basicTypes/Const.lhs
@@ -46,6 +46,10 @@ import Util		( thenCmp )
 import Ratio 		( numerator, denominator )
 import FastString	( uniqueOfFS )
 import Char		( ord )
+
+#if __GLASGOW_HASKELL__ >= 404
+import GlaExts		( fromInt )
+#endif
 \end{code}
 
 
-- 
1.7.10.4