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

Timestamp:

08/01/08 14:20:21 (4 months ago)

Author:

audreyt

Message:

* Reflect data-dir changes.

Files:

• src/Pugs/Prim/Match.hs (modified) (2 diffs)

src/Pugs/Prim/Match.hs

@@ -33 +33 @@
 doMatch :: String -> VRule -> Eval VMatch
 doMatch cs rule@MkRulePGE{ rxRule = ruleStr } = do
-    pwd     <- io $ getDataFileName "blib6/pugs/perl5/lib"
+    pwd1    <- io $ getDataFileName "perl5/Pugs-Compiler-Rule/lib"
+    pwd2    <- io $ getDataFileName "third-party/Parse-Yapp/lib"
     glob    <- askGlobal
     let syms = [ (cast $ v_name var, entry)
@@ -49 +50 @@
     let ruleEngine | Just "PGE" <- rv   = evalPGE
                    | otherwise          = evalPCR
-    pge  <- io $ ruleEngine pwd cs text subrules
+    pge  <- io $ ruleEngine [pwd1, pwd2] cs text subrules
             `catchIO` (\e -> return $ show e)
     rv  <- tryIO Nothing $ fmap Just (readIO $ decodeUTF8 pge)