[project @ 2005-01-14 12:06:51 by ross]

Hugs: use Word like everyone else

diff --git a/Data/IntMap.hs b/Data/IntMap.hs
index ce9f3eb..6e26867 100644 (file)
--- a/Data/IntMap.hs
+++ b/Data/IntMap.hs
@@ -158,20 +158,8 @@ import Data.Word
 
 infixl 9 \\{-This comment teaches CPP correct behaviour -}
 
-#if __HUGS__
-{--------------------------------------------------------------------
-  Hugs:
-  * Older Hugs doesn't define 'Word'.
-  * Newer Hugs defines 'Word' in the Prelude but no operations.
---------------------------------------------------------------------}
-type Nat = Word32   -- illegal on 64-bit platforms!
-#else
-{--------------------------------------------------------------------
-  'Standard' Haskell
-  * A "Nat" is a natural machine word (an unsigned Int)
---------------------------------------------------------------------}
+-- A "Nat" is a natural machine word (an unsigned Int)
 type Nat = Word
-#endif
 
 natFromInt :: Key -> Nat
 natFromInt i = fromIntegral i

diff --git a/Data/IntSet.hs b/Data/IntSet.hs
index 5023df6..510498c 100644 (file)
--- a/Data/IntSet.hs
+++ b/Data/IntSet.hs
@@ -115,20 +115,8 @@ import Data.Word
 
 infixl 9 \\{-This comment teaches CPP correct behaviour -}
 
-#if __HUGS__
-{--------------------------------------------------------------------
-  Hugs:
-  * Older Hugs doesn't define 'Word'.
-  * Newer Hugs defines 'Word' in the Prelude but no operations.
---------------------------------------------------------------------}
-type Nat = Word32   -- illegal on 64-bit platforms!
-#else
-{--------------------------------------------------------------------
-  'Standard' Haskell
-  * A "Nat" is a natural machine word (an unsigned Int)
---------------------------------------------------------------------}
+-- A "Nat" is a natural machine word (an unsigned Int)
 type Nat = Word
-#endif
 
 natFromInt :: Int -> Nat
 natFromInt i = fromIntegral i