--- Pugs/Parser/Literal.hs 2006-08-15 02:11:40.000000000 +0800
+++ Pugs/Parser/Literal.hs 2006-08-15 02:35:46.000000000 +0800
@@ -9,7 +9,7 @@
import Pugs.Parser.Types
import Pugs.Parser.Operator
-ruleYada = do
+ruleYada = try $ do
sym <- do
string "..."
<|>
@@ -18,6 +18,7 @@
string "!!!"
return $ (App (Var (doYada sym)) Nothing [(Val (VStr (sym ++ " - not yet implemented")))])
+ruleTwigil :: RuleParser String
ruleTwigil = option "" $ do
string "^"
<|>
@@ -70,7 +71,7 @@
ruleDot = do
do
- do
+ try $ do
string "."
notFollowedBy $ (string ".") >> return ' '
<|>
@@ -83,7 +84,7 @@
string "?"
return ()
-ruleLongDot = do
+ruleLongDot = try $ do
string "\\"
notFollowedBy $ (string "(") >> return ' '
perl6WhiteSpace