[removed tracing
martin.hofmann@uni-bamberg.de**20081208122933] hunk ./src/Data/Fragments.hs 27
-import Debug.Trace
-
hunk ./src/Data/HypoSpace.hs 96
-    trace "INS-rateHypos" alterRateHyposMap (H.mbInsert h) (Just (rate h)) $!
-    trace "INS-ruleHypos" alterRuleHyposMap (H.mbInsert h) (open h) $!
-    trace "INS-HypoRate"  alterHypoRateMap  (flip M.insert (rate h)) h $!
+    incrementHypoCount $ 
+    alterRateIdsMap  (mbInsert iD)      h $
+    alterHypoIdBimap (flip B.insert iD) h $
+    alterRuleIdsMap  (mbInsert iD)      h $
hunk ./src/Data/HypoSpace.hs 105
-delete h hsp@(HSpace _ _ hrm) = 
-    trace "DEL-rateHypos" $ alterRateHyposMap (H.mbDelete h) (M.lookup h hrm) $
-    trace "DEL-ruleHypos" $ alterRuleHyposMap (H.mbDelete h) (open h)$
-    trace "DEL-HypoRate"  $ alterHypoRateMap M.delete h $
+delete h hsp = 
+    alterRateIdsMap (mbDelete iD) h $
+    alterRuleIdsMap (mbDelete iD) h $ 
+    alterHypoIdBimap B.delete     h $ 
hunk ./src/Data/Hypotheses.hs 38
-import Debug.Trace
hunk ./src/Data/IgorData.hs 18
-import Debug.Trace
hunk ./src/Data/IgorData.hs 35
-    in trace ( "InitialHypo:" ++ (show ih)) $ ih
+    in ih
hunk ./src/Data/Rules.hs 27
-import Debug.Trace
hunk ./src/Data/Rules.hs 90
-fold f i rs =  trace "USING FOLD for Rules" $ foldl' (flip f) i (rulesToList rs) -- S.fold f i (unRS rs)
+fold f i rs =  foldl' (flip f) i (rulesToList rs) -- S.fold f i (unRS rs)
hunk ./src/IgorMonad.hs 28
-import Debug.Trace
-