From b09c1dacd2daca860d975a522da9c224df57a8ca Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 26 Apr 2014 07:27:20 +0400 Subject: Tidy deriving list --- src/Network/BitTorrent/DHT/Session.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Network') diff --git a/src/Network/BitTorrent/DHT/Session.hs b/src/Network/BitTorrent/DHT/Session.hs index eab25ebb..208f8ec8 100644 --- a/src/Network/BitTorrent/DHT/Session.hs +++ b/src/Network/BitTorrent/DHT/Session.hs @@ -254,10 +254,8 @@ data Node ip = Node -- | DHT keep track current session and proper resource allocation for -- safe multithreading. newtype DHT ip a = DHT { unDHT :: ReaderT (Node ip) IO a } - deriving ( Functor, Applicative, Monad - , MonadIO, MonadBase IO - , MonadReader (Node ip) - , MonadThrow + deriving ( Functor, Applicative, Monad, MonadIO + , MonadBase IO, MonadReader (Node ip), MonadThrow ) instance MonadBaseControl IO (DHT ip) where -- cgit v1.2.3