Changeset 13864 for src/Pugs/Compile.hs
- Timestamp:
- 10/04/06 15:43:44 (2 years ago)
- Files:
-
- 1 modified
-
src/Pugs/Compile.hs (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
src/Pugs/Compile.hs
r13614 r13864 405 405 compile (Syn "//" exp) = compile $ Syn "rx" exp 406 406 compile (Syn "rx" [exp, _]) = compile exp -- XXX WRONG - use PCRE 407 compile (Syn "subst" [exp, _, _]) = compile exp -- XXX WRONG - use PCRE 407 compile (Syn "|" [exp]) = compile exp -- XXX WRONG 408 compile (Syn "|<<" [exp]) = compile exp -- XXX WRONG 408 409 compile exp@(App _ _ _) = fmap PExp $ compile exp 409 410 compile exp@(Syn _ _) = fmap PExp $ compile exp
