[nicer modification functions for Igor inside IM
martin.hofmann@uni-bamberg.de**20090430093310] hunk ./src/Data/IgorMonad.hs 60
+modifyHS :: (HSpace -> HSpace) -> IM()
+modifyHS f = 
+    modify $ \igor@(Igor _ sp _) ->
+      igor{searchSpace = f sp}
hunk ./src/Data/IgorMonad.hs 70
+modifyIO ::(IOData -> IOData) -> IM()
+modifyIO f = 
+    modify $ \igor@(Igor io _ _) ->
+      igor{iodata = f io}
+
hunk ./src/Data/IgorMonad.hs 80
-propagate rf adv = get >>= \igor@(Igor _ sp _) ->
-                    put $ igor{searchSpace = (propagateHSp rf adv sp)}
+propagate  = (modifyHS .) . propagateHSp