[apply a Context to a function in the C monad insied the IgorMonad
martin.hofmann@uni-bamberg.de**20091201102954] hunk ./src/Igor2/Data/CallDependencies.hs 125
-tryAddCall cd c =  
+tryAddCall cd c = 
hunk ./src/Igor2/Data/IgorMonad.hs 8
-    runIM, IM, 
+    runIM, IM,
hunk ./src/Igor2/Data/IgorMonad.hs 11
-    context, instances, ctxFile,
+    context, instances, ctxFile, 
+    applyC,
hunk ./src/Igor2/Data/IgorMonad.hs 28
+import Control.Monad.Error
hunk ./src/Igor2/Data/IgorMonad.hs 45
-data Igor = Igor 
+data Igor = Igor
hunk ./src/Igor2/Data/IgorMonad.hs 230
-
+applyC :: (MonadError e m) => C m a -> IM (m a)
+applyC a = gets igor_ctx >>=  return . (withC a )