[tidied up Fragments
martin.hofmann@uni-bamberg.de**20081118153943] hunk ./src/Data/Fragments.hs 5
-    RuleFrag, name, frag, asFrag, covr, opos, isOpen,
-    RuleFrags, insert, delete,
-    fold
+    RuleFrag(..), 
+    ruleFrag, asFrag,
+    isOpen,
+    
+    RuleFrags, insert, delete, replace,
+    fold, map, empty, null
hunk ./src/Data/Fragments.hs 14
-import Data.Rules (Rule, Rateable(..)) 
+import Data.Rules (Rule, Rateable(..))
hunk ./src/Data/Fragments.hs 19
-import qualified Data.Set as S (fromList, toList, fold, map, null, insert, delete, union)
+import qualified Data.Set as S (empty, fromList, toList, fold, map, null, insert, delete, union)
hunk ./src/Data/Fragments.hs 41
-asFrag n r = rulefrag n r [] []
+asFrag n r = ruleFrag n r [] []
hunk ./src/Data/Fragments.hs 43
-rulefrag :: Name -> Rule -> [Int] -> [Position] -> RuleFrag
-rulefrag n r c o = RF n r c o    
+ruleFrag :: Name -> Rule -> [Int] -> [Position] -> RuleFrag
+ruleFrag n r c o = RF n r c o    
hunk ./src/Data/Fragments.hs 65
+empty :: RuleFrags
+empty = RFS $ S.empty
+
hunk ./src/Data/Fragments.hs 104
+-- *FIXME* necessary? 
hunk ./src/Data/Fragments.hs 108
+-- *FIXME* necessary?
hunk ./src/Data/Fragments.hs 112
+-- *FIXME* necessary?