MagnetURI: New module to handle magnet uris

[functorrent.git] / src / main / Main.hs

diff --git a/src/main/Main.hs b/src/main/Main.hs
index 8fccebe0cd53bbcbbae7fc77cd1bff136ddb19dd..c5acb40a35ebaee33ef61cdede929a418761bd0f 100644 (file)
--- a/src/main/Main.hs
+++ b/src/main/Main.hs
@@ -23,20 +23,21 @@ module Main where
 import           Prelude hiding (log, length, readFile, getContents)
 
 import           Control.Concurrent (forkIO, killThread)
-import           Control.Concurrent.MVar (readMVar)
+
 import           Data.ByteString.Char8 (ByteString, getContents, readFile)
 import qualified FuncTorrent.FileSystem as FS (createMsgChannel, pieceMapFromFile, run)
 import           FuncTorrent.Logger (initLogger, logMessage, logStop)
+import           FuncTorrent.MagnetURI
 import           FuncTorrent.Metainfo (Info(..), Metainfo(..), torrentToMetainfo)
 import           FuncTorrent.Peer (handlePeerMsgs)
 import           FuncTorrent.PieceManager (initPieceMap)
 import qualified FuncTorrent.Server as Server
 import           FuncTorrent.Tracker (runTracker, getConnectedPeers, newTracker)
 import           Network (PortID (PortNumber))
-import           System.IO (withFile, IOMode (ReadWriteMode))
 import           System.Directory (doesFileExist)
 import           System.Environment (getArgs)
 import           System.Exit (exitSuccess)
+import           System.IO (withFile, IOMode (ReadWriteMode))
 import           System.Random (getStdGen, randomRs)
 
 logError :: String -> (String -> IO ()) -> IO ()