1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs
index abe1ef5f..627bc096 100644
--- a/src/Network/BitTorrent/DHT/Query.hs
+++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -137,5 +137,5 @@ publish ih p = do
 republish :: DHT ip ThreadId
 republish = fork $ do
-  i <- askOption optReannounce
+  i <- asks (optReannounce . options)
  error "DHT.republish: not implemented"

diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs index abe1ef5f..627bc096 100644 --- a/src/Network/BitTorrent/DHT/Query.hs +++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -137,5 +137,5 @@ publish ih p = do
137		137
138	republish :: DHT ip ThreadId	138	republish :: DHT ip ThreadId
139	republish = fork $ do	139	republish = fork $ do
140	i <- askOption optReannounce	140	i <- asks (optReannounce . options)
141	error "DHT.republish: not implemented"	141	error "DHT.republish: not implemented"