@@ -185,10 +185,14 @@ instance FromJSON Bool where
185 {-# INLINE parseJSON #-}
185 {-# INLINE parseJSON #-}
187instance ToJSON Ordering where
187instance ToJSON Ordering where
188− toJSON o = String $ case o of
188+ toJSON = toJSON . orderingToText
189+ toEncoding = toEncoding . orderingToText
191+orderingToText :: Ordering -> T.Text
192+orderingToText o = case o of
189− LT -> "LT"
193+ LT -> "LT"
190− EQ -> "EQ"
194+ EQ -> "EQ"
191− GT -> "GT"
195+ GT -> "GT"
193instance FromJSON Ordering where
197instance FromJSON Ordering where
194 parseJSON = withText "Ordering" $ \s ->
198 parseJSON = withText "Ordering" $ \s ->