summaryrefslogtreecommitdiff
path: root/src/Network
diff options
context:
space:
mode:
Diffstat (limited to 'src/Network')
-rw-r--r--src/Network/Torrent.hs2
-rw-r--r--src/Network/Torrent/PeerWire.hs5
-rw-r--r--src/Network/Torrent/PeerWire/Handshake.hs (renamed from src/Network/Torrent/Handshake.hs)2
3 files changed, 5 insertions, 4 deletions
diff --git a/src/Network/Torrent.hs b/src/Network/Torrent.hs
index a9194d3e..a37bee41 100644
--- a/src/Network/Torrent.hs
+++ b/src/Network/Torrent.hs
@@ -2,10 +2,8 @@ module Network.Torrent
2 ( module Network.Torrent.PeerID 2 ( module Network.Torrent.PeerID
3 , module Network.Torrent.Tracker 3 , module Network.Torrent.Tracker
4 , module Network.Torrent.PeerWire 4 , module Network.Torrent.PeerWire
5 , module Network.Torrent.Handshake
6 ) where 5 ) where
7 6
8import Network.Torrent.PeerID 7import Network.Torrent.PeerID
9import Network.Torrent.Tracker 8import Network.Torrent.Tracker
10import Network.Torrent.PeerWire 9import Network.Torrent.PeerWire
11import Network.Torrent.Handshake
diff --git a/src/Network/Torrent/PeerWire.hs b/src/Network/Torrent/PeerWire.hs
index b1fae9f2..27ecda79 100644
--- a/src/Network/Torrent/PeerWire.hs
+++ b/src/Network/Torrent/PeerWire.hs
@@ -1,8 +1,11 @@
1{-# LANGUAGE DoAndIfThenElse #-} 1{-# LANGUAGE DoAndIfThenElse #-}
2module Network.Torrent.PeerWire 2module Network.Torrent.PeerWire
3 ( Message(..), Block(..), BlockIx(..), 3 ( module Network.Torrent.PeerWire.Handshake
4 , Message(..), Block(..), BlockIx(..),
4 ) where 5 ) where
5 6
7import Network.Torrent.PeerWire.Handshake
8
6import Control.Applicative 9import Control.Applicative
7import Data.ByteString (ByteString) 10import Data.ByteString (ByteString)
8import qualified Data.ByteString as B 11import qualified Data.ByteString as B
diff --git a/src/Network/Torrent/Handshake.hs b/src/Network/Torrent/PeerWire/Handshake.hs
index c14fd591..7bdb7fef 100644
--- a/src/Network/Torrent/Handshake.hs
+++ b/src/Network/Torrent/PeerWire/Handshake.hs
@@ -1,5 +1,5 @@
1{-# LANGUAGE OverloadedStrings #-} 1{-# LANGUAGE OverloadedStrings #-}
2module Network.Torrent.Handshake 2module Network.Torrent.PeerWire.Handshake
3 ( Handshake 3 ( Handshake
4 , defaultProtocol, defaultReserved, defaultHandshake 4 , defaultProtocol, defaultReserved, defaultHandshake
5 ) where 5 ) where