Less sentience
This commit is contained in:
parent
ae175bbdf4
commit
1bf382e370
|
@ -960,7 +960,7 @@ readScript = do
|
||||||
do {
|
do {
|
||||||
allspacing;
|
allspacing;
|
||||||
commands <- readTerm;
|
commands <- readTerm;
|
||||||
eof <|> (parseProblem WarningC "Stopping here, because I can't parse this command");
|
eof <|> (parseProblem ErrorC "Parsing stopped here because of parsing errors.");
|
||||||
return $ T_Script id commands;
|
return $ T_Script id commands;
|
||||||
} <|> do {
|
} <|> do {
|
||||||
parseProblem WarningC "Couldn't read any commands";
|
parseProblem WarningC "Couldn't read any commands";
|
||||||
|
|
Loading…
Reference in New Issue