1 files changed, 1 insertions, 0 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 15db79ea..ab256831 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -167,6 +167,7 @@ godht ::
    , Pretty (NodeInfo dht IPv4 u)
    , Default u
    , Show u
+    , Typeable dht
    ) => String -> (NodeAddr IPv4 -> NodeId dht -> DHT raw dht u IPv4 b) -> IO b
 godht p f = do
    a <- btBindAddr p False

diff --git a/examples/dhtd.hs b/examples/dhtd.hs index 15db79ea..ab256831 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs
@@ -167,6 +167,7 @@ godht ::
167	, Pretty (NodeInfo dht IPv4 u)	167	, Pretty (NodeInfo dht IPv4 u)
168	, Default u	168	, Default u
169	, Show u	169	, Show u
		170	, Typeable dht
170	) => String -> (NodeAddr IPv4 -> NodeId dht -> DHT raw dht u IPv4 b) -> IO b	171	) => String -> (NodeAddr IPv4 -> NodeId dht -> DHT raw dht u IPv4 b) -> IO b
171	godht p f = do	172	godht p f = do
172	a <- btBindAddr p False	173	a <- btBindAddr p False