1 files changed, 2 insertions, 1 deletions
diff --git a/bench/Main.hs b/bench/Main.hs
index fdf76cc2..024d4d93 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -6,10 +6,11 @@ import Data.ByteString (ByteString)
 import qualified Data.ByteString as B
 import Criterion.Main
 import Network.KRPC
+import Network.Socket
 addr :: RemoteAddr
-addr = (0, 6000)
+addr = SockAddrInet 6000 0
 echo :: Method ByteString ByteString
 echo = method "echo" ["x"] ["x"]

diff --git a/bench/Main.hs b/bench/Main.hs index fdf76cc2..024d4d93 100644 --- a/bench/Main.hs +++ b/bench/Main.hs
@@ -6,10 +6,11 @@ import Data.ByteString (ByteString)
6	import qualified Data.ByteString as B	6	import qualified Data.ByteString as B
7	import Criterion.Main	7	import Criterion.Main
8	import Network.KRPC	8	import Network.KRPC
		9	import Network.Socket
9		10
10		11
11	addr :: RemoteAddr	12	addr :: RemoteAddr
12	addr = (0, 6000)	13	addr = SockAddrInet 6000 0
13		14
14	echo :: Method ByteString ByteString	15	echo :: Method ByteString ByteString
15	echo = method "echo" ["x"] ["x"]	16	echo = method "echo" ["x"] ["x"]