From: Jaseem Abid <jaseemabid@gmail.com>
Date: Tue, 7 Apr 2015 01:59:01 +0000 (+0530)
Subject: Expose all MetaInfo constructors
X-Git-Url: https://git.rkrishnan.org/tahoe_css?a=commitdiff_plain;h=a6044051c3c9701ab6748b6bfc7da47f903a789a;p=functorrent.git

Expose all MetaInfo constructors
---

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)