Commit 3f05f587 authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl
Browse files

prevent crash if a module ends with infix[l|r]

parent 908a4583
......@@ -902,7 +902,9 @@ GetPrio input
# (error, c, input) = SkipWhites input
| IsDigit c
= (error, digitToInt c, input)
| c<>NewLineChar // not eof ?
= (error, defaultPrio , charBack input)
= (error, defaultPrio , input)
where defaultPrio = 9
determineStrictness :: !Input -> (!Bool, !Input)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment