diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-04 01:03:55 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-04-04 01:03:55 +0400 |
| commit | de1fee157b87b62161ac68f32bd6e72ba9a11275 (patch) | |
| tree | 75b90c02937e49e1cb712f48d5823da3c90a002c /tests/Network/BitTorrent/Exchange/SessionSpec.hs | |
| parent | 937342955301e9820a9bcbafcf8922cc5dd1798d (diff) | |
[Exchange] newSession now can take infohash only
Diffstat (limited to 'tests/Network/BitTorrent/Exchange/SessionSpec.hs')
| -rw-r--r-- | tests/Network/BitTorrent/Exchange/SessionSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/Exchange/SessionSpec.hs b/tests/Network/BitTorrent/Exchange/SessionSpec.hs index 0eec8f41..c2c76644 100644 --- a/tests/Network/BitTorrent/Exchange/SessionSpec.hs +++ b/tests/Network/BitTorrent/Exchange/SessionSpec.hs | |||
| @@ -16,7 +16,7 @@ simpleSession :: InfoDict -> (Session -> IO ()) -> IO () | |||
| 16 | simpleSession dict action = do | 16 | simpleSession dict action = do |
| 17 | withRemoteAddr $ \ addr -> do | 17 | withRemoteAddr $ \ addr -> do |
| 18 | myAddr <- getMyAddr | 18 | myAddr <- getMyAddr |
| 19 | ses <- newSession nullLogger myAddr "" dict | 19 | ses <- newSession nullLogger myAddr "" (Right dict) |
| 20 | connect addr ses | 20 | connect addr ses |
| 21 | action ses | 21 | action ses |
| 22 | closeSession ses | 22 | closeSession ses |