Allow passing ipv6 addresses

1 files changed, 2 insertions, 1 deletions

diff --git a/tests/Server.hs b/tests/Server.hs
index 9e70b70b..b4b34891 100644
--- a/tests/Server.hs
+++ b/tests/Server.hs
@@ -3,11 +3,12 @@ module Main (main) where
 
 import Data.BEncode
 import Network.KRPC
+import Network.Socket
 import Shared
 
 
 main :: IO ()
-main = server 6000
+main = server (SockAddrInet 6000 0)
   [ unitM ==> return
   , echoM ==> return
   , echoBytes ==> return