1 files changed, 7 insertions, 2 deletions

diff --git a/src/Network/BitTorrent/DHT.hs b/src/Network/BitTorrent/DHT.hs
index 7eef0c67..41a76886 100644
--- a/src/Network/BitTorrent/DHT.hs
+++ b/src/Network/BitTorrent/DHT.hs
@@ -82,8 +82,13 @@ handlers = [pingH, findNodeH, getPeersH, announceH]
 -----------------------------------------------------------------------}
 
 -- | Run DHT on specified port. <add note about resources>
-dht :: Address ip => NodeAddr ip -> DHT ip a -> IO a
-dht addr = runDHT addr handlers
+dht :: Address ip
+    => Options     -- ^ normally you need to use 'Data.Default.def';
+    -> NodeAddr ip -- ^ address to bind this node;
+    -> DHT ip a    -- ^ actions to run: 'bootstrap', 'lookup', etc;
+    -> IO a        -- ^ result.
+dht = runDHT handlers
+{-# INLINE dht #-}
 
 -- | One good node may be sufficient. The list of bootstrapping nodes
 -- usually obtained from 'Data.Torrent.tNodes' field.