Fix pretty-printing order of UnexpectedEvent's fields (fixes #84)
commit5b0bf4fc3b5c1920c83e09e4d08e1ce864cdb82f
authorBryan Gardiner <bog@khumba.net>
dateThu 9 Jun 2016, 09:58 (10 years ago)
parenta323630
Data/Yaml/Internal.hs+1−1
@@ -78,7 +78,7 @@ prettyPrintParseException :: ParseException -> String
7878prettyPrintParseException pe = case pe of
7979 NonScalarKey -> "Non scalar key"
8080 UnknownAlias anchor -> "Unknown alias `" ++ anchor ++ "`"
81− UnexpectedEvent mbExpected mbUnexpected -> unlines
81+ UnexpectedEvent { _expected = mbExpected, _received = mbUnexpected } -> unlines
8282 [ "Unexpected event: expected"
8383 , " " ++ show mbExpected
8484 , "but received"