@@ -27,7 +27,7 @@ instance MonadPlus Parser where
27 mplus p q = P (\inp => case parse p inp of
27 mplus p q = P (\inp => case parse p inp of
28 Left msg => parse q inp
28 Left msg => parse q inp
29 Right (v,out) => Right(v,out))
29 Right (v,out) => Right(v,out))
30−
30+-- this is a comment for testing