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