Expose DHT options in DHT.hs module

2 files changed, 7 insertions, 4 deletions

diff --git a/src/Network/BitTorrent/Client.hs b/src/Network/BitTorrent/Client.hs
index 5218c299..e1a84939 100644
--- a/src/Network/BitTorrent/Client.hs
+++ b/src/Network/BitTorrent/Client.hs
@@ -53,7 +53,7 @@ import           Data.Torrent.Magnet
 import           Network.BitTorrent.Client.Types
 import           Network.BitTorrent.Client.Handle
 import           Network.BitTorrent.Core
-import           Network.BitTorrent.DHT
+import           Network.BitTorrent.DHT      as DHT      hiding (Options)
 import           Network.BitTorrent.Tracker  as Tracker  hiding (Options)
 import           Network.BitTorrent.Exchange as Exchange hiding (Options)
 import qualified Network.BitTorrent.Exchange as Exchange (Options(..))
diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs
index 3b852c52..6b57e451 100644
--- a/src/Network/BitTorrent/DHT.hs
+++ b/src/Network/BitTorrent/DHT.hs
@@ -20,7 +20,7 @@
 module Network.BitTorrent.DHT
        ( -- * Distributed Hash Table
          DHT
-       , MonadDHT (..)
+       , Options (..)
        , dht
 
          -- * Bootstrapping
@@ -39,12 +39,15 @@ module Network.BitTorrent.DHT
        , Network.BitTorrent.DHT.insert
        , Network.BitTorrent.DHT.delete
 
-         -- * Internal
-         -- | Can be used to implement instance of 'MonadDHT'.
+         -- * Embedding
+         -- ** Session
        , LogFun
        , Node
        , handlers
        , startNode
+
+         -- ** Monad
+       , MonadDHT (..)
        , runDHT
        ) where