@@ -78,7 +78,7 @@ prettyPrintParseException :: ParseException -> String
78prettyPrintParseException pe = case pe of
78prettyPrintParseException pe = case pe of
79 NonScalarKey -> "Non scalar key"
79 NonScalarKey -> "Non scalar key"
80 UnknownAlias anchor -> "Unknown alias `" ++ anchor ++ "`"
80 UnknownAlias anchor -> "Unknown alias `" ++ anchor ++ "`"
81− UnexpectedEvent mbExpected mbUnexpected -> unlines
81+ UnexpectedEvent { _expected = mbExpected, _received = mbUnexpected } -> unlines
82 [ "Unexpected event: expected"
82 [ "Unexpected event: expected"
83 , " " ++ show mbExpected
83 , " " ++ show mbExpected
84 , "but received"
84 , "but received"