@@ -84,7 +84,7 @@ type T a = a -> Value
85toJSON :: (Data a) => a -> Value
85toJSON :: (Data a) => a -> Value
86toJSON = toJSON_generic
86toJSON = toJSON_generic
87− `ext1Q` maybe
87+ `ext1Q` maybe Null toJSON
88 `ext1Q` list
88 `ext1Q` list
89 `ext1Q` vector
89 `ext1Q` vector
90 `ext1Q` set
90 `ext1Q` set
@@ -120,8 +120,6 @@ toJSON = toJSON_generic
120 `extQ` (T.toJSON :: T ())
120 `extQ` (T.toJSON :: T ())
121 --`extQ` (T.toJSON :: T Ordering)
121 --`extQ` (T.toJSON :: T Ordering)
123− maybe (Just a) = toJSON a
124− maybe Nothing = Null
125 list xs = Array . V.fromList . map toJSON $ xs
123 list xs = Array . V.fromList . map toJSON $ xs
126 vector v = Array . V.map toJSON $ v
124 vector v = Array . V.map toJSON $ v
127 set s = Array . V.fromList . map toJSON . Set.toList $ s
125 set s = Array . V.fromList . map toJSON . Set.toList $ s