[minor changes, strictness organise im/ex
martin.hofmann@uni-bamberg.de**20081203145450] hunk ./src/Data/IOData.hs 4
-import Data.Rules
+import Data.Rules (Rules, Rule, rulesToList)
hunk ./src/Data/IOData.hs 10
-import Data.Map as M
hunk ./src/Data/IOData.hs 23
-    { evidence  :: Bimap Name Rules
+    { evidence  :: !(Bimap Name Rules)
hunk ./src/Data/IOData.hs 25
-    , functions :: Bimap Name Rules
+    , functions :: !(Bimap Name Rules)
hunk ./src/Data/IOData.hs 69
-getByName :: Name -> IOData ->  [Rule]
-getByName n iod = 
+getAll :: Name -> IOData ->  [Rule]
+getAll n iod = 
hunk ./src/Data/IOData.hs 75
+getSpecific :: Name -> IOData -> Int -> Rule
+getSpecific n iod i =  (getAll n iod) !! i
+       
+getSpecifics :: Name -> IOData -> [Int] -> [Rule]
+getSpecifics n iod =  map (getSpecific n iod)
+        
hunk ./src/Data/IgorData.hs 14
+import Data.Fragments (RuleFrag, RuleFrags)
hunk ./src/Data/IgorData.hs 18
+import Debug.Trace
hunk ./src/Data/IgorData.hs 21
-    { iodata :: IOData, searchSpace :: HSpace}
+    { iodata :: !IOData, searchSpace :: !HSpace}
hunk ./src/Data/IgorData.hs 27
-initIgor iod n = Igor iod $ initHSpace $ mkInitialHypo iod n
+initIgor iod n = Igor iod $! initHSpace $! (mkInitialHypo iod n) 