A Peek into Pugs Internals #26

Brace yourself

my $car = %models{$wanted};
ruleHashSubscriptBraces = do
    between (symbol "{") (char '}') $ option id $ do
        exp <- ruleExpression; return $ \x -> Syn "{}" [x, exp]
continued...
Copyright © 2006 Gaal Yahas