[fix another uncaught fail
Helmut Grohne <grohne@cs.uni-bonn.de>**20140108092959
 Ignore-this: a215ef97092a3d141de75db316f2802f
] hunk ./src/Igor2/Data/CallDependencies.hs 11
+import Control.Monad.Error
hunk ./src/Igor2/Data/CallDependencies.hs 109
-addCall c cd =  
-    if admissible c cd 
-       then addCallUnsafe c cd 
-       else error $ "Call "++ (show c) ++ " not admissible in " ++ (show cd)
+addCall c cd = either error id $ tryAddCall cd c
hunk ./src/Igor2/Data/CallDependencies.hs 123
-tryAddCall ::(Monad m) => CallDep -> Call -> m CallDep
+tryAddCall ::(Error e, MonadError e m) => CallDep -> Call -> m CallDep
hunk ./src/Igor2/Data/CallDependencies.hs 127
-       else fail $ "Call "++ (show c) ++ " not admissible in " ++ (show cd)
+       else throwError . strMsg $ "Call " ++ show c ++ " not admissible in " ++ show cd