diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-16 23:37:45 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-16 23:37:45 +0400 |
| commit | 3d2408eb3f680117d841e5f90e120ff018009f03 (patch) | |
| tree | f947ffa48de140fd25e399ce0dae608c7953c84f /src/Network/BitTorrent/DHT/Query.hs | |
| parent | 1b01790a3a2913becf84cb11eb5909d1969e9853 (diff) | |
Remove askOption
Diffstat (limited to 'src/Network/BitTorrent/DHT/Query.hs')
| -rw-r--r-- | src/Network/BitTorrent/DHT/Query.hs | 2 |
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 | |||
| 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" |