@@ -189,13 +189,12 @@ instance ToJSON Ordering where
189189 GT -> "GT"
190190
191191instance FromJSON Ordering where
192− parseJSON v = case v of
193− String s -> case s of
192+ parseJSON = withText "Ordering" $ \s ->
193+ case s of
194194 "LT" -> return LT
195195 "EQ" -> return EQ
196196 "GT" -> return GT
197197 _ -> fail "Parsing Ordering value failed: expected \"LT\", \"EQ\", or \"GT\""
198− _ -> typeMismatch "Ordering" v
199198
200199instance ToJSON () where
201200 toJSON _ = emptyArray