From 3613e02e454980bb208132922e852145b89705c4 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Wed, 19 Mar 2014 02:05:50 +0400
Subject: Add bittorrent instance for transformers

---
 src/Network/BitTorrent/Client/Types.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Network')

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
-- 
cgit v1.2.3