Add bittorrent instance for transformers

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Client/Types.hs b/src/Network/BitTorrent/Client/Types.hs
index fa345e4b..e9f9f76e 100644
--- a/src/Network/BitTorrent/Client/Types.hs
+++ b/src/Network/BitTorrent/Client/Types.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 module Network.BitTorrent.Client.Types
        ( -- * Core types
@@ -82,6 +83,9 @@ class MonadBitTorrent m where
 instance MonadBitTorrent BitTorrent where
   liftBT = id
 
+instance MonadTrans t => MonadBitTorrent (t BitTorrent) where
+  liftBT = lift
+
 -- | Registered but not closed manually resources will be
 -- automatically closed at 'Network.BitTorrent.Client.closeClient'
 instance MonadResource BitTorrent where