[Few minor changes for readability.
tobias@goedderz.info**20150114123248
 Ignore-this: 70913a295974b9566170546f7877528c
] hunk ./src/Igor2/RuleDevelopment/Matching.hs 209
-anyResult = (liftM ((\l -> if (null l) then Nothing else (Just l)).catMaybes)).sequence
+anyResult = liftM (nullToNothing . catMaybes) . sequence
+    where nullToNothing [] = Nothing
+          nullToNothing xs = Just xs
hunk ./src/Igor2/RuleDevelopment/Matching.hs 219
-abduceIO ::CovrRule -> Ordering -> CovrRule -> IM (Maybe (Ordering, [Rule]))
+abduceIO :: CovrRule -> Ordering -> CovrRule -> IM (Maybe (Ordering, [Rule]))
hunk ./src/Igor2/RuleDevelopment/Matching.hs 230
-       else do s <- lift . lift $ (liftM Just $ on matchesRhs crul cll tgt) `catchError`
+       else do s <- lift . lift $ (liftM Just $ (matchesRhs `on` crul) cll tgt) `catchError`
hunk ./src/Igor2/RuleDevelopment/Matching.hs 251
-                               return.Just $  (callrel, map (rule lhss') rhss')
+                               return.Just $ (callrel, map (rule lhss') rhss')