Drop unusable UNPACK pragma
commit2a0d815f7e4d26a3235d6f28e48d88ec27e7dddd
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 16 Feb 2011, 13:20 (16 years ago)
parente22d339
Data/Attoparsec/Number.hs+1−1
@@ -21,7 +21,7 @@ import Data.Typeable (Typeable)
2121
2222-- | A numeric type that can represent integers accurately, and
2323-- floating point numbers to the precision of a 'Double'.
24−data Number = I {-# UNPACK #-} !Integer
24+data Number = I !Integer
2525 | D {-# UNPACK #-} !Double
2626 deriving (Typeable, Data)
2727