on master help sign in
improved parse error messages
076411bjvoigtlaender
src/Parse/Helpers.hs+3−3
@@ -68,12 +68,12 @@ var =
68
68
69lowVar :: IParser String
69lowVar :: IParser String
70lowVar =
70lowVar =
71− makeVar lower <?> "a lower case variable"
71+ makeVar lower <?> "a lower case name"
72
72
73
73
74capVar :: IParser String
74capVar :: IParser String
75capVar =
75capVar =
76− makeVar upper <?> "an upper case variable"
76+ makeVar upper <?> "an upper case name"
77
77
78
78
79qualifiedVar :: IParser String
79qualifiedVar :: IParser String
@@ -88,7 +88,7 @@ rLabel = lowVar
88
88
89innerVarChar :: IParser Char
89innerVarChar :: IParser Char
90innerVarChar =
90innerVarChar =
91− alphaNum <|> char '_' <|> char '\'' <?> "more letters in this variable"
91+ alphaNum <|> char '_' <|> char '\'' <?> "more letters in this name"
92
92
93
93
94makeVar :: IParser Char -> IParser String
94makeVar :: IParser Char -> IParser String