Merge
commit4c628149c8ffaeea16785d7fa2968b42ee1f9fb5
authorBryan O'Sullivan <bos@serpentine.com>
dateThu 17 Nov 2011, 11:02 (15 years ago)
parent87e1eaadc9bcb7
Data/Aeson/Types/Internal.hs+4−4
@@ -157,10 +157,10 @@ type Object = Map Text Value
157157type Array = Vector Value
158158
159159-- | A JSON value represented as a Haskell value.
160−data Value = Object Object
161− | Array Array
162− | String Text
163− | Number Number
160+data Value = Object !Object
161+ | Array !Array
162+ | String !Text
163+ | Number !Number
164164 | Bool !Bool
165165 | Null
166166 deriving (Eq, Show, Typeable, Data)