blob: 8d67614596486cda15527a285eee253e87c68c1b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
module Main (main) where
import Control.Concurrent
import Data.Default
import System.Environment
import Text.PrettyPrint.Class
import Network.BitTorrent
main :: IO ()
main = do
[path] <- getArgs
torrent <- fromFile path
let logger = \ _ _ _ _ -> return ()
withClient def logger $ flip runBitTorrent $ do
return ()
|
