summaryrefslogtreecommitdiff
path: root/libraries/base/Data/IntSet.hs
diff options
context:
space:
mode:
Diffstat (limited to 'libraries/base/Data/IntSet.hs')
-rw-r--r--libraries/base/Data/IntSet.hs14
1 files changed, 1 insertions, 13 deletions
diff --git a/libraries/base/Data/IntSet.hs b/libraries/base/Data/IntSet.hs
index 5023df677c..510498ca75 100644
--- a/libraries/base/Data/IntSet.hs
+++ b/libraries/base/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