git.iko.soy/typeable/attoparsec
on master help sign in
Drop unusable UNPACK pragma
2a0d815Bryan O'Sullivan
Data/Attoparsec/Number.hs+1−1
@@ -21,7 +21,7 @@ import Data.Typeable (Typeable)
21
21
22-- | A numeric type that can represent integers accurately, and
22-- | A numeric type that can represent integers accurately, and
23-- floating point numbers to the precision of a 'Double'.
23-- floating point numbers to the precision of a 'Double'.
24−data Number = I {-# UNPACK #-} !Integer
24+data Number = I !Integer
25 | D {-# UNPACK #-} !Double
25 | D {-# UNPACK #-} !Double
26 deriving (Typeable, Data)
26 deriving (Typeable, Data)
27
27