Changeset 21699 for src/Pugs/Prim/Match.hs

Timestamp:

08/01/08 15:33:01 (4 months ago)

Author:

audreyt

Message:

* The logical consequence of r21698.

Files:

• src/Pugs/Prim/Match.hs (modified) (1 diff)

src/Pugs/Prim/Match.hs

@@ -48 +48 @@
     text <- ruleWithAdverbs rule
     rv   <- io $ fmap (fmap (fmap toUpper)) (getEnv "PUGS_REGEX_ENGINE")
-    let ruleEngine | Just "PGE" <- rv   = evalPGE
+    let ruleEngine | Just "PGE" <- rv   = error "No PGE support for now" -- evalPGE
                    | otherwise          = evalPCR
     pge  <- io $ ruleEngine [pwd1, pwd2] cs text subrules