@@ -142,9 +142,9 @@ instance (ToJSON a, ToJSON b) => ToJSON (Either a b) where
142142 {-# INLINE toJSON #-}
143143
144144 toEncoding (Left a) = Encoding $
145− B.shortByteString "{\"left\":" <> builder a <> B.char7 '}'
145+ B.shortByteString "{\"Left\":" <> builder a <> B.char7 '}'
146146 toEncoding (Right a) = Encoding $
147− B.shortByteString "{\"right\":" <> builder a <> B.char7 '}'
147+ B.shortByteString "{\"Right\":" <> builder a <> B.char7 '}'
148148 {-# INLINE toEncoding #-}
149149
150150instance (FromJSON a, FromJSON b) => FromJSON (Either a b) where