summaryrefslogtreecommitdiff
path: root/examples/Client.hs
blob: 67fed62e97c1ea619ddddd903a17d691f78f8738 (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 Data.Torrent
import Network.BitTorrent.Client
import System.Environment
import Text.PrettyPrint.Class


main :: IO ()
main = do
  [path]  <- getArgs
  torrent <- fromFile path
  client  <- newClient def $ \ _ _ _ _ -> return ()
--  addTorrent torrent client
  return ()