Separating dht-client library from bittorrent package.

1 files changed, 0 insertions, 74 deletions

diff --git a/examples/Client.hs b/examples/Client.hs
deleted file mode 100644
index 26711676..00000000
--- a/examples/Client.hs
+++ /dev/null
@@ -1,74 +0,0 @@
-{-# LANGUAGE RankNTypes                #-}
-{-# LANGUAGE CPP                       #-}
-{-# LANGUAGE ExistentialQuantification #-}
-{-# LANGUAGE RecordWildCards           #-}
-module Main (main) where
-import Control.Concurrent
-import Control.Monad.Trans
-import Data.Maybe
-import Options.Applicative
-import System.Environment
-import System.Exit
-import System.IO
-import Text.Read
-
-import Network.BitTorrent
-
-#if MIN_VERSION_optparse_applicative(0,13,0)
--- maybeReader imported from Options.Applicative.Builder
-#elif MIN_VERSION_optparse_applicative(0,11,0)
-maybeReader f = eitherReader (maybe (Left ":(") Right . f)
-#else
-maybeReader f = f
-#endif
-
-{-----------------------------------------------------------------------
---  Command line arguments
------------------------------------------------------------------------}
-
-data TorrentBox = forall s. TorrentSource s => TorrentBox { unTorrentBox :: s }
-
-data Args = Args
-  { topic       :: TorrentBox
-  , contentDir  :: FilePath
-  }
-
-argsParser :: Parser Args
-argsParser = Args <$> (TorrentBox <$> infohashP <|> TorrentBox <$> torrentP)
-                  <*> destDirP
-  where
-    infohashP :: Parser InfoHash
-    infohashP = argument (maybeReader readMaybe)
-                (metavar "SHA1"     <> help "infohash of torrent file")
-
-    torrentP :: Parser FilePath
-    torrentP  = argument (maybeReader Just)
-                ( metavar "FILE"
-               <> help    "A .torrent file"
-                )
-
-    destDirP :: Parser FilePath
-    destDirP  = argument (maybeReader Just)
-                ( metavar "DIR"
-               <> help    "Directory to put content"
-                )
-
-argsInfo :: ParserInfo Args
-argsInfo = info (helper <*> argsParser)
-   ( fullDesc
-  <> progDesc "A simple CLI bittorrent client"
-  <> header   "foo"
-   )
-
-{-----------------------------------------------------------------------
---  Client
------------------------------------------------------------------------}
-
-run :: Args -> BitTorrent ()
-run (Args (TorrentBox t) dir)  = do
-  h <- openHandle dir t
-  start h
-  liftIO $ threadDelay 10000000000
-
-main :: IO ()
-main = execParser argsInfo >>= simpleClient . run