diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-06-02 18:51:49 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-06-02 18:51:49 +0000 |
| commit | eebd9c717e706a5871e76dabda13bb19bea731a3 (patch) | |
| tree | 3e71d8c904d8a071b05813e4c55b2c60ad6ce94e /libraries/integer-simple | |
| parent | 1698be30e2f3c96a5e7b947a37de85ab97bad5ce (diff) | |
| download | haskell-eebd9c717e706a5871e76dabda13bb19bea731a3.tar.gz | |
Make the Integer type components strict
Diffstat (limited to 'libraries/integer-simple')
| -rw-r--r-- | libraries/integer-simple/GHC/Integer.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libraries/integer-simple/GHC/Integer.hs b/libraries/integer-simple/GHC/Integer.hs index 0b03061a39..d4df60d42a 100644 --- a/libraries/integer-simple/GHC/Integer.hs +++ b/libraries/integer-simple/GHC/Integer.hs @@ -50,7 +50,7 @@ errorInteger = Positive errorPositive errorPositive :: Positive errorPositive = Some 47## None -- Random number -data Integer = Positive Positive | Negative Positive | Naught +data Integer = Positive !Positive | Negative !Positive | Naught smallInteger :: Int# -> Integer smallInteger i = if i >=# 0# then wordToInteger (int2Word# i) @@ -380,7 +380,7 @@ hashInteger _ = 42# type Positive = Digits type Positives = List Positive -data Digits = Some Digit Digits +data Digits = Some !Digit !Digits | None type Digit = Word# |