add a simple message loop to print out received msgs

[functorrent.git] / src / FuncTorrent.hs

diff --git a/src/FuncTorrent.hs b/src/FuncTorrent.hs
index c05be76a1662febecdbcc435cbba66a87b01b374..cd6473c96878c79e75025eadde601908bc46775b 100644 (file)
--- a/src/FuncTorrent.hs
+++ b/src/FuncTorrent.hs
@@ -1,27 +1,20 @@
 module FuncTorrent
     (BVal(..),
-     Info,
-     InfoDict,
-     Metainfo,
+     Info(..),
+     Metainfo(..),
      Peer,
-     PeerResp(..),
-     announce,
-     connect,
+     TrackerResponse(..),
+     tracker,
      decode,
      encode,
-     getPeerResponse,
-     handShakeMsg,
-     info,
-     infoHash,
+     handShake,
+     msgLoop,
      initLogger,
-     lengthInBytes,
      logMessage,
      logStop,
      mkInfo,
      mkMetaInfo,
-     name,
-     prepareRequest,
-     urlEncodeHash
+     mkTrackerResponse
     ) where
 
 import FuncTorrent.Bencode