diff options
Diffstat (limited to 'tests/Server.hs')
-rw-r--r-- | tests/Server.hs | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/tests/Server.hs b/tests/Server.hs deleted file mode 100644 index b4b34891..00000000 --- a/tests/Server.hs +++ /dev/null | |||
@@ -1,20 +0,0 @@ | |||
1 | {-# LANGUAGE IncoherentInstances #-} | ||
2 | module Main (main) where | ||
3 | |||
4 | import Data.BEncode | ||
5 | import Network.KRPC | ||
6 | import Network.Socket | ||
7 | import Shared | ||
8 | |||
9 | |||
10 | main :: IO () | ||
11 | main = server (SockAddrInet 6000 0) | ||
12 | [ unitM ==> return | ||
13 | , echoM ==> return | ||
14 | , echoBytes ==> return | ||
15 | , swapM ==> \(a, b) -> return (b, a) | ||
16 | , reverseM ==> return . reverse | ||
17 | , shiftR ==> \(a, b, c) -> return (c, a, b) | ||
18 | , rawM ==> return | ||
19 | , rawDictM ==> return | ||
20 | ] | ||