diff options
Diffstat (limited to 'libraries/base/tests/isValidNatural.hs')
| -rw-r--r-- | libraries/base/tests/isValidNatural.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/libraries/base/tests/isValidNatural.hs b/libraries/base/tests/isValidNatural.hs index 1b062f0309..86a0b1dae9 100644 --- a/libraries/base/tests/isValidNatural.hs +++ b/libraries/base/tests/isValidNatural.hs @@ -1,9 +1,10 @@ {-# language MagicHash #-} -import GHC.Integer.GMP.Internals -import GHC.Natural +import GHC.Num.Natural +import GHC.Num.BigNat +import GHC.Exts -main = print $ map isValidNatural [0, 1, maxWord, maxWord + 1, invalid] +main = print $ map naturalCheck [0, 1, maxWord, maxWord + 1, invalid] where maxWord = fromIntegral (maxBound :: Word) - invalid = NatJ# oneBigNat -- 1 would fit into the NatS# constructor. + invalid = NB (bigNatOne void#) -- 1 would fit into the NS constructor. |