Commits

Bryan O'Sullivan committed d04f4a8

Drop unusable UNPACK pragma

Comments (0)

Files changed (1)

Data/Attoparsec/Number.hs

 
 -- | A numeric type that can represent integers accurately, and
 -- floating point numbers to the precision of a 'Double'.
-data Number = I {-# UNPACK #-} !Integer
+data Number = I !Integer
             | D {-# UNPACK #-} !Double
               deriving (Typeable, Data)