@@ -151,6 +151,14 @@ instance FromJSON Char where
151 else fail "Expected a string of length 1"
151 else fail "Expected a string of length 1"
152 {-# INLINE parseJSON #-}
152 {-# INLINE parseJSON #-}
154+instance ToJSON Scientific where
156+ {-# INLINE toJSON #-}
158+instance FromJSON Scientific where
159+ parseJSON = withScientific "Scientific" pure
160+ {-# INLINE parseJSON #-}
154instance ToJSON Double where
162instance ToJSON Double where
155 toJSON = realFloatToJSON
163 toJSON = realFloatToJSON
156 {-# INLINE toJSON #-}
164 {-# INLINE toJSON #-}