Give it some attitude
This commit is contained in:
parent
9eac0bfab9
commit
0141bd812b
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue