diff options
Diffstat (limited to 'tests/Network/BitTorrent/DHT/RoutingSpec.hs')
-rw-r--r-- | tests/Network/BitTorrent/DHT/RoutingSpec.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/Network/BitTorrent/DHT/RoutingSpec.hs b/tests/Network/BitTorrent/DHT/RoutingSpec.hs index aeccff5f..3077a52a 100644 --- a/tests/Network/BitTorrent/DHT/RoutingSpec.hs +++ b/tests/Network/BitTorrent/DHT/RoutingSpec.hs | |||
@@ -1,4 +1,5 @@ | |||
1 | {-# LANGUAGE ScopedTypeVariables #-} | 1 | {-# LANGUAGE ScopedTypeVariables #-} |
2 | {-# LANGUAGE FlexibleContexts #-} | ||
2 | module Network.BitTorrent.DHT.RoutingSpec (spec) where | 3 | module Network.BitTorrent.DHT.RoutingSpec (spec) where |
3 | import Control.Applicative | 4 | import Control.Applicative |
4 | import Control.Monad.State | 5 | import Control.Monad.State |
@@ -73,4 +74,4 @@ spec = do | |||
73 | let t1 = runSimulation e (T.insert n t) | 74 | let t1 = runSimulation e (T.insert n t) |
74 | let t2 = runSimulation e (T.insert n t >>= T.insert n) | 75 | let t2 = runSimulation e (T.insert n t >>= T.insert n) |
75 | t1 `shouldBe` t2 | 76 | t1 `shouldBe` t2 |
76 | -} \ No newline at end of file | 77 | -} |