on master help sign in
Fix ambiguous type error only manifesting on GHC 7.10.x
d1364e4Adam Bergmark
Data/Aeson/Parser/Internal.hs+1
@@ -277,6 +277,7 @@ eitherDecodeWith p to s =
277 IError path msg -> Left (path, msg)
277 IError path msg -> Left (path, msg)
278 L.Fail _ ctx msg -> Left ([], buildMsg ctx msg)
278 L.Fail _ ctx msg -> Left ([], buildMsg ctx msg)
279 where
279 where
280+ buildMsg :: [String] -> String -> String
280 buildMsg [] msg = msg
281 buildMsg [] msg = msg
281 buildMsg (expectation:_) msg =
282 buildMsg (expectation:_) msg =
282 msg ++ ". Expecting " ++ expectation
283 msg ++ ". Expecting " ++ expectation