Give it some attitude

This commit is contained in:
Vidar Holen 2012-11-16 23:04:40 -08:00
parent 9eac0bfab9
commit 0141bd812b
1 changed files with 1 additions and 1 deletions

View File

@ -1205,7 +1205,7 @@ getStringFromParsec errors =
Message s -> (4, "Message: " ++ s) Message s -> (4, "Message: " ++ s)
wut "" = "eof" wut "" = "eof"
wut x = x wut x = x
unexpected s = "Aborting due to unexpected " ++ (wut s) ++ ". Is this valid?" unexpected s = "Aborting due to unexpected " ++ (wut s) ++ ". Is this even valid?"
parseShell filename contents = do parseShell filename contents = do
case rp (parseWithNotes readScript) filename contents of case rp (parseWithNotes readScript) filename contents of