From 3d2408eb3f680117d841e5f90e120ff018009f03 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sun, 16 Feb 2014 23:37:45 +0400 Subject: Remove askOption --- src/Network/BitTorrent/DHT/Query.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network/BitTorrent/DHT/Query.hs') 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" -- cgit v1.2.3