From 91621c7fb503cb8919053730a2b4b91075a4cf58 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Fri, 4 Apr 2014 01:25:33 +0400
Subject: [Client] Fix warnings in Handle module

---
 src/Network/BitTorrent/Client/Handle.hs | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'src/Network/BitTorrent/Client/Handle.hs')

diff --git a/src/Network/BitTorrent/Client/Handle.hs b/src/Network/BitTorrent/Client/Handle.hs
index 2da3b357..a1bc163c 100644
--- a/src/Network/BitTorrent/Client/Handle.hs
+++ b/src/Network/BitTorrent/Client/Handle.hs
@@ -14,11 +14,10 @@ module Network.BitTorrent.Client.Handle
 
          -- * Query
        , getHandle
-       , HandleState
-       , getState
+       , HandleStatus (..)
+       , getStatus
        ) where
 
-import Control.Applicative
 import Control.Concurrent.Lifted as L
 import Control.Monad
 import Control.Monad.Trans
@@ -50,7 +49,7 @@ allocHandle ih m = do
 
 freeHandle :: InfoHash -> BitTorrent () -> BitTorrent ()
 freeHandle ih finalizer = do
-  c @ Client {..} <- getClient
+  Client {..} <- getClient
   modifyMVar_ clientTorrents $ \ handles -> do
     case HM.lookup ih handles of
       Nothing -> return handles
@@ -90,7 +89,7 @@ openTorrent rootPath t @ Torrent {..} = do
 
 -- | Use 'nullMagnet' to open handle from 'InfoHash'.
 openMagnet :: FilePath -> Magnet -> BitTorrent Handle
-openMagnet rootPath uri @ Magnet {..} = do
+openMagnet rootPath Magnet {..} = do
   allocHandle exactTopic $ do
     tses <- liftIO $ Tracker.newSession exactTopic def
     eses <- newExchangeSession rootPath (Left exactTopic)
@@ -149,7 +148,7 @@ stop Handle {..} = do
 --  Query
 -----------------------------------------------------------------------}
 
-data HandleState
+data HandleStatus
   = Running
   | Paused
   | Stopped
@@ -161,5 +160,5 @@ getHandle ih = do
     Nothing -> error "should we throw some exception?"
     Just h  -> return h
 
-getState :: Handle -> IO HandleState
-getState = undefined
\ No newline at end of file
+getStatus :: Handle -> IO HandleStatus
+getStatus = undefined
-- 
cgit v1.2.3