diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-10-01 06:10:41 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-10-01 06:10:41 +0400 |
| commit | 258f21eb490ee3588dd3a1c7316ff41f7f355be7 (patch) | |
| tree | c4eae6e12cfa8ebb7553a5b75654ae6371684d57 /bench/Main.hs | |
| parent | 4a0653fc58869f4fc61230d3d11ef92626a8f52d (diff) | |
Allow passing ipv6 addresses
Diffstat (limited to 'bench/Main.hs')
| -rw-r--r-- | bench/Main.hs | 3 |
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) | |||
| 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"] |