Fixed SKIP not being allowed as a guard without a precondition

This commit is contained in:
Neil Brown 2009-04-14 11:13:00 +00:00
parent 71267f12d5
commit 1a3df54ee7

View File

@ -1907,6 +1907,10 @@ guard
= do m <- md
(c, im) <- input
return $ A.Alternative m (A.True m) c im
<|> do m <- md
sSKIP
eol
return $ A.AlternativeSkip m (A.True m)
<|> do m <- md
b <- tryVX expression sAmp
do { (c, im) <- input; return $ A.Alternative m b c im }