diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-26 07:27:20 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-26 07:27:20 +0400 |
| commit | b09c1dacd2daca860d975a522da9c224df57a8ca (patch) | |
| tree | b068c306d6397c7e66b1454beabd6fc105a7223f /src/Network/BitTorrent/DHT/Session.hs | |
| parent | 55d59c4857dee7e2ab091405e79854c944c7e7e3 (diff) | |
Tidy deriving list
Diffstat (limited to 'src/Network/BitTorrent/DHT/Session.hs')
| -rw-r--r-- | src/Network/BitTorrent/DHT/Session.hs | 6 |
1 files changed, 2 insertions, 4 deletions
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 | |||
| 254 | -- | DHT keep track current session and proper resource allocation for | 254 | -- | DHT keep track current session and proper resource allocation for |
| 255 | -- safe multithreading. | 255 | -- safe multithreading. |
| 256 | newtype DHT ip a = DHT { unDHT :: ReaderT (Node ip) IO a } | 256 | newtype DHT ip a = DHT { unDHT :: ReaderT (Node ip) IO a } |
| 257 | deriving ( Functor, Applicative, Monad | 257 | deriving ( Functor, Applicative, Monad, MonadIO |
| 258 | , MonadIO, MonadBase IO | 258 | , MonadBase IO, MonadReader (Node ip), MonadThrow |
| 259 | , MonadReader (Node ip) | ||
| 260 | , MonadThrow | ||
| 261 | ) | 259 | ) |
| 262 | 260 | ||
| 263 | instance MonadBaseControl IO (DHT ip) where | 261 | instance MonadBaseControl IO (DHT ip) where |