Less sentience

This commit is contained in:
Vidar Holen 2012-11-05 01:42:36 -08:00
parent ae175bbdf4
commit 1bf382e370
1 changed files with 1 additions and 1 deletions

View File

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