From a6044051c3c9701ab6748b6bfc7da47f903a789a Mon Sep 17 00:00:00 2001 From: Jaseem Abid Date: Tue, 7 Apr 2015 07:29:01 +0530 Subject: [PATCH] Expose all MetaInfo constructors --- src/FuncTorrent/Metainfo.hs | 10 +++------- src/Main.hs | 2 +- 2 files changed, 4 insertions(+), 8 deletions(-) diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs index d6f2cf7..4a95a70 100644 --- a/src/FuncTorrent/Metainfo.hs +++ b/src/FuncTorrent/Metainfo.hs @@ -1,12 +1,8 @@ module FuncTorrent.Metainfo - (Info, - Metainfo, - announceList, + (Info(..), + Metainfo(..), mkMetaInfo, - mkInfo, - lengthInBytes, - info, - name, + mkInfo ) where import Prelude hiding (lookup) diff --git a/src/Main.hs b/src/Main.hs index cfbcfe3..b7888e0 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -10,7 +10,7 @@ import Text.ParserCombinators.Parsec (ParseError) import FuncTorrent.Bencode (decode, BVal(..)) import FuncTorrent.Logger (initLogger, logMessage, logStop) -import FuncTorrent.Metainfo (lengthInBytes, mkMetaInfo, info, name, announceList) +import FuncTorrent.Metainfo (Info(..), Metainfo(..), mkMetaInfo) import FuncTorrent.Peer (peers, mkPeerResp, handShakeMsg) import FuncTorrent.Tracker (connect, prepareRequest) -- 2.37.2