diff --git a/src/Quasar/Disposable.hs b/src/Quasar/Disposable.hs
index 787ac7a561907a0f6b9c764cae12ae4c7a7bd72d..429c9ad00e0d34d71705a512f40eabf9de42e670 100644
--- a/src/Quasar/Disposable.hs
+++ b/src/Quasar/Disposable.hs
@@ -225,12 +225,14 @@ entryIsEmpty (ResourceManagerEntry var) = isEmptyTMVar var
 
 class IsResourceManager a where
   toResourceManager :: a -> ResourceManager
+
   -- TODO move to class
   --attachDisposable :: (IsDisposable b, MonadIO m) => a -> b -> m ()
 
   --subResourceManager :: MonadResourceManager m => m (DisposableResourceThingy)
 
   throwToResourceManager :: Exception e => a -> e -> IO ()
+  throwToResourceManager = throwToResourceManager . toResourceManager
 
 
 instance IsResourceManager ResourceManager where