From: ross <unknown>
Date: Fri, 14 Jan 2005 12:06:51 +0000 (+0000)
Subject: [project @ 2005-01-14 12:06:51 by ross]
X-Git-Tag: nhc98-1-18-release~112
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fa680a0011bc07ef4643ea9f9b32439eda293650;p=ghc-base.git

[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
--- 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
--- 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