Give it some attitude
This commit is contained in:
parent
9eac0bfab9
commit
0141bd812b
|
@ -1205,7 +1205,7 @@ getStringFromParsec errors =
|
|||
Message s -> (4, "Message: " ++ s)
|
||||
wut "" = "eof"
|
||||
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
|
||||
case rp (parseWithNotes readScript) filename contents of
|
||||
|
|
Loading…
Reference in New Issue