Expose all MetaInfo constructors

diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs
index d6f2cf745f56e6e6438eff9a4ee9968a206323f9..4a95a70a9f980209cd7e5bf9300e0d900cc3a939 100644 (file)
--- 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 cfbcfe37c17f10987fae467aef2a8c5ef989151f..b7888e0ca6dca5598b042c3279a91259c49d1816 100644 (file)
--- 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)