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 ()
 simpleSession dict action = do
   withRemoteAddr $ \ addr -> do
     myAddr <- getMyAddr
-    ses  <- newSession nullLogger myAddr "" dict
+    ses  <- newSession nullLogger myAddr "" (Right dict)
     connect addr ses
     action ses
     closeSession ses