diff options
| author | ross <unknown> | 2005-01-14 12:06:51 +0000 |
|---|---|---|
| committer | ross <unknown> | 2005-01-14 12:06:51 +0000 |
| commit | dfa72b35048fa22e4ce351fae53e691f76059603 (patch) | |
| tree | f1feab97e3e4798a0974721e2de4b8c0e56834f8 /libraries/base/Data | |
| parent | ac8e3f27a9b68e443d657a659c9fae9b0d5bf08a (diff) | |
| download | haskell-dfa72b35048fa22e4ce351fae53e691f76059603.tar.gz | |
[project @ 2005-01-14 12:06:51 by ross]
Hugs: use Word like everyone else
Diffstat (limited to 'libraries/base/Data')
| -rw-r--r-- | libraries/base/Data/IntMap.hs | 14 | ||||
| -rw-r--r-- | libraries/base/Data/IntSet.hs | 14 |
2 files changed, 2 insertions, 26 deletions
diff --git a/libraries/base/Data/IntMap.hs b/libraries/base/Data/IntMap.hs index ce9f3eb015..6e26867cc0 100644 --- a/libraries/base/Data/IntMap.hs +++ b/libraries/base/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/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 |