Make more pointfree

snoyberg · Dec 15, 2014 · 3db692c · 3db692c
1 parent 7745f66
commit 3db692c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/resourcet/Control/Monad/Trans/Resource/Internal.hs b/resourcet/Control/Monad/Trans/Resource/Internal.hs
@@ -261,7 +261,7 @@ instance MonadBaseControl b m => MonadBaseControl b (ResourceT m) where
      liftBaseWith f = ResourceT $ \reader' ->
          liftBaseWith $ \runInBase ->
              f $ runInBase . (\(ResourceT r) -> r reader'  )
-     restoreM base = ResourceT $ const $ restoreM base
+     restoreM = ResourceT . const . restoreM
 
 #define GO(T) instance (MonadResource m) => MonadResource (T m) where liftResourceT = lift . liftResourceT
 #define GOX(X, T) instance (X, MonadResource m) => MonadResource (T m) where liftResourceT = lift . liftResourceT