Fix up typeMismatch error message
commit2086bc3d3d5679f84b649cb6b6fba51951fca520
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 21 Jul 2015, 09:25 (11 years ago)
parent684baea
Data/Aeson/Types/Class.hs+1−2
@@ -260,8 +260,7 @@ typeMismatch :: String -- ^ The name of the type you are trying to parse.
260260 -> Value -- ^ The actual value encountered.
261261 -> Parser a
262262typeMismatch expected actual =
263− fail $ "when expecting a " ++ expected ++ ", encountered " ++ name ++
264− " instead"
263+ fail $ "expected " ++ expected ++ ", encountered " ++ name
265264 where
266265 name = case actual of
267266 Object _ -> "Object"