From fa680a0011bc07ef4643ea9f9b32439eda293650 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Fri, 14 Jan 2005 12:06:51 +0000
Subject: [PATCH] [project @ 2005-01-14 12:06:51 by ross] Hugs: use Word like
 everyone else

---
 Data/IntMap.hs |   14 +-------------
 Data/IntSet.hs |   14 +-------------
 2 files changed, 2 insertions(+), 26 deletions(-)

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