[Matching.hs added
martin.hofmann@uni-bamberg.de**20090424063401] hunk ./src/RuleDevelopment.hs 10
+import RuleDevelopment.Matching
hunk ./src/RuleDevelopment.hs 21
+    mtchs <- introduceMatchings cd rf
addfile ./src/RuleDevelopment/Matching.hs
hunk ./src/RuleDevelopment/Matching.hs 1
-
+
+module Context.Matching where
+
+import Data.IOData
+import Data.IgorMonad
+
+introduceMatchings :: CallDep -> RuleFrag -> IM [(RuleFrags,[Call])]
+introduceMatchings _ _ = do 
+    covfrags <- breakupM $ rf
+    return []