diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-03-05 00:35:47 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-03-05 00:35:47 +0400 |
| commit | 3c7f12c10caca196a970c0cc8b6c46945c9dee58 (patch) | |
| tree | e5a4f8d2d29828ecee64c18881322a3cb7602b93 /tests/Network/BitTorrent/DHT/RoutingSpec.hs | |
| parent | 6794c6843e625a3b61fec48e54167a13f5fd093b (diff) | |
Minor refactoring
Diffstat (limited to 'tests/Network/BitTorrent/DHT/RoutingSpec.hs')
| -rw-r--r-- | tests/Network/BitTorrent/DHT/RoutingSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/DHT/RoutingSpec.hs b/tests/Network/BitTorrent/DHT/RoutingSpec.hs index 788c4341..c4a33357 100644 --- a/tests/Network/BitTorrent/DHT/RoutingSpec.hs +++ b/tests/Network/BitTorrent/DHT/RoutingSpec.hs | |||
| @@ -27,7 +27,7 @@ runSimulation :: Eq ip => Env ip -> Routing ip a -> Maybe a | |||
| 27 | runSimulation e m = evalState (runRouting ping closest timestamp m) e | 27 | runSimulation e m = evalState (runRouting ping closest timestamp m) e |
| 28 | where | 28 | where |
| 29 | ping addr = gets (L.elem addr . network) | 29 | ping addr = gets (L.elem addr . network) |
| 30 | closest nid = undefined | 30 | closest nid = error "runSimulation" |
| 31 | timestamp = gets currentTime | 31 | timestamp = gets currentTime |
| 32 | 32 | ||
| 33 | instance Arbitrary ip => Arbitrary (Env ip) where | 33 | instance Arbitrary ip => Arbitrary (Env ip) where |