@@ -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"