@@ -260,8 +260,7 @@ typeMismatch :: String -- ^ The name of the type you are trying to parse.
260 -> Value -- ^ The actual value encountered.
260 -> Value -- ^ The actual value encountered.
261 -> Parser a
261 -> Parser a
262typeMismatch expected actual =
262typeMismatch expected actual =
263− fail $ "when expecting a " ++ expected ++ ", encountered " ++ name ++
263+ fail $ "expected " ++ expected ++ ", encountered " ++ name
266 name = case actual of
265 name = case actual of
267 Object _ -> "Object"
266 Object _ -> "Object"