X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FIntMap.hs;h=6e26867cc0037e1d1ad11f6eaed7d417cc532f51;hb=fa680a0011bc07ef4643ea9f9b32439eda293650;hp=ce9f3eb015c37f66b1a3a1a4d7ffbc8d29ae5219;hpb=a7d561a002efa30619c88faa3f929bdc1967c206;p=ghc-base.git

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