From 68bebe08459a87b9b915fd0f8bce1b506c8c2918 Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Fri, 14 Jun 2013 21:42:19 +0400
Subject: - Remove monadfork dependency.

---
 src/Network/BitTorrent/Exchange.hs | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/Network/BitTorrent/Exchange.hs')

diff --git a/src/Network/BitTorrent/Exchange.hs b/src/Network/BitTorrent/Exchange.hs
index 0fd1d15a..75bd4bfd 100644
--- a/src/Network/BitTorrent/Exchange.hs
+++ b/src/Network/BitTorrent/Exchange.hs
@@ -6,11 +6,9 @@
 --   Portability :  portable
 --
 {-# LANGUAGE OverloadedStrings          #-}
-{-# LANGUAGE DoAndIfThenElse            #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE MultiParamTypeClasses      #-}
 {-# LANGUAGE RecordWildCards            #-}
-{-# LANGUAGE FlexibleContexts           #-}
 {-# LANGUAGE BangPatterns               #-}
 module Network.BitTorrent.Exchange
        ( -- * Block
@@ -34,7 +32,6 @@ import Control.Applicative
 import Control.Exception
 import Control.Concurrent
 import Control.Lens
-import Control.Monad.Fork.Class
 import Control.Monad.Reader
 import Control.Monad.State
 import Control.Monad.Trans.Resource
@@ -111,8 +108,6 @@ instance MonadState SessionState P2P where
   put !s = asks sessionState >>= \ref -> liftIO $ writeIORef ref s
   {-# INLINE put #-}
 
--- TODO instance for MonadFork
-
 runSession :: SwarmSession -> PeerAddr -> P2P () -> IO ()
 runSession  se addr p2p =
     handle isIOException $
-- 
cgit v1.2.3