From bdf086bea98bd29c5437a77df5c19563ea29a9c1 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Sun, 16 Feb 2014 21:19:45 +0400
Subject: Expose DHT options in DHT.hs module

---
 src/Network/BitTorrent/Client.hs | 2 +-
 src/Network/BitTorrent/DHT.hs    | 9 ++++++---
 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
 
-- 
cgit v1.2.3