diff options
| author | joe <joe@jerkface.net> | 2017-01-16 23:04:35 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-01-17 07:36:38 -0500 |
| commit | 9c551511ae5a0d6cf7fc77daf6bd6b16b8eb8977 (patch) | |
| tree | cc2d88abd7c1c5c5463dc305c5b09e7ae149c2ea /src/Network/BitTorrent/DHT/Token.hs | |
| parent | 5a69a35f99adfa2905e280aafe68c358afd3067f (diff) | |
Clean up all warnings (ghc 8.0.1) in DHT component.
Diffstat (limited to 'src/Network/BitTorrent/DHT/Token.hs')
| -rw-r--r-- | src/Network/BitTorrent/DHT/Token.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Network/BitTorrent/DHT/Token.hs b/src/Network/BitTorrent/DHT/Token.hs index a0ed428b..7aaaf2b7 100644 --- a/src/Network/BitTorrent/DHT/Token.hs +++ b/src/Network/BitTorrent/DHT/Token.hs | |||
| @@ -37,7 +37,6 @@ module Network.BitTorrent.DHT.Token | |||
| 37 | , Network.BitTorrent.DHT.Token.update | 37 | , Network.BitTorrent.DHT.Token.update |
| 38 | ) where | 38 | ) where |
| 39 | 39 | ||
| 40 | import Control.Applicative | ||
| 41 | import Control.Monad.State | 40 | import Control.Monad.State |
| 42 | import Data.BEncode (BEncode) | 41 | import Data.BEncode (BEncode) |
| 43 | import Data.ByteString as BS | 42 | import Data.ByteString as BS |
| @@ -119,4 +118,4 @@ update TokenMap {..} = TokenMap | |||
| 119 | , generator = newGen | 118 | , generator = newGen |
| 120 | } | 119 | } |
| 121 | where | 120 | where |
| 122 | (newSecret, newGen) = next generator \ No newline at end of file | 121 | (newSecret, newGen) = next generator |