@@ -157,10 +157,10 @@ type Object = Map Text Value
157type Array = Vector Value
157type Array = Vector Value
159-- | A JSON value represented as a Haskell value.
159-- | A JSON value represented as a Haskell value.
160−data Value = Object Object
160+data Value = Object !Object
161− | Array Array
161+ | Array !Array
162− | String Text
162+ | String !Text
163− | Number Number
163+ | Number !Number
164 | Bool !Bool
164 | Bool !Bool
166 deriving (Eq, Show, Typeable, Data)
166 deriving (Eq, Show, Typeable, Data)