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

Timestamp:

09/16/06 15:50:09 (2 years ago)

Author:

audreyt

Message:

* More attempt at fixing PCR bridge

Files:

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

src/Pugs/Prim/Match.hs

@@ -31 +31 @@
 doMatch :: String -> VRule -> Eval VMatch
 doMatch cs rule@MkRulePGE{ rxRule = ruleStr } = do
-    let pwd1 = getConfig "installarchlib" ++ "/CORE/pugs/pge"
-        pwd2 = getConfig "sourcedir" ++ "/src/pge"
+    let pwd1 = getConfig "installarchlib" ++ "/CORE/pugs"
+        pwd2 = getConfig "sourcedir"
     hasSrc <- liftIO $ doesDirectoryExist pwd2
     let pwd = if hasSrc then pwd2 else pwd1