[project @ 2003-07-21 15:14:18 by ross]

[ghc-hetmet.git] / ghc / compiler / utils / FastTypes.lhs

diff --git a/ghc/compiler/utils/FastTypes.lhs b/ghc/compiler/utils/FastTypes.lhs
index e335848..9f9d903 100644 (file)
--- a/ghc/compiler/utils/FastTypes.lhs
+++ b/ghc/compiler/utils/FastTypes.lhs
@@ -12,10 +12,12 @@ module FastTypes (
     FastBool, fastBool, isFastTrue, fastOr
   ) where
 
+#include "HsVersions.h"
+
 #if defined(__GLASGOW_HASKELL__)
 
 -- Import the beggars
-import GlaExts
+import GLAEXTS
        ( Int(..), Int#, (+#), (-#), (*#), 
          quotInt#, negateInt#, (==#), (<#), (<=#), (>=#), (>#)
        )
@@ -38,7 +40,7 @@ fastOr 0# x = x
 fastAnd 0# x = 0#
 fastAnd 1# x = x
 
-#else {- ! __GLASGOW_HASKELL__ -}
+#else /* ! __GLASGOW_HASKELL__ */
 
 type FastInt = Int
 _ILIT x = x
@@ -59,5 +61,5 @@ type FastBool = Bool
 fastBool x = x
 _IS_TRUE_ x = x
 
-#endif  {- ! __GLASGOW_HASKELL__ -}
+#endif /* ! __GLASGOW_HASKELL__ */
 \end{code}