diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-20 06:25:03 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-02-20 06:25:03 +0400 |
| commit | 2fee3e9d893973b3db7af606e6583d2ccd9d05eb (patch) | |
| tree | 05ea0dd83d3b791d24806ac987c24e40df253476 /tests/Network/BitTorrent/DHT/SessionSpec.hs | |
| parent | 0f76501d5bdc033fd5b3a821021f2c319ec314da (diff) | |
Fix some warnings
Diffstat (limited to 'tests/Network/BitTorrent/DHT/SessionSpec.hs')
| -rw-r--r-- | tests/Network/BitTorrent/DHT/SessionSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/DHT/SessionSpec.hs b/tests/Network/BitTorrent/DHT/SessionSpec.hs index c936dd1b..41852763 100644 --- a/tests/Network/BitTorrent/DHT/SessionSpec.hs +++ b/tests/Network/BitTorrent/DHT/SessionSpec.hs | |||
| @@ -64,7 +64,7 @@ spec = do | |||
| 64 | property $ \ (nid :: NodeId) -> do | 64 | property $ \ (nid :: NodeId) -> do |
| 65 | let info = NodeInfo nid myAddr | 65 | let info = NodeInfo nid myAddr |
| 66 | closest <- simpleDHT $ do | 66 | closest <- simpleDHT $ do |
| 67 | insertNode info | 67 | _ <- insertNode info |
| 68 | liftIO $ yield | 68 | liftIO $ yield |
| 69 | getClosest nid | 69 | getClosest nid |
| 70 | closest `shouldSatisfy` L.elem info | 70 | closest `shouldSatisfy` L.elem info |