summaryrefslogtreecommitdiff
path: root/tests/Server.hs
diff options
context:
space:
mode:
authorSam Truzjan <pxqr.sta@gmail.com>2013-12-24 23:50:23 +0400
committerSam Truzjan <pxqr.sta@gmail.com>2013-12-24 23:50:23 +0400
commit46b6ba10202b73ba413d18bd21a284e3897c12b0 (patch)
tree6fee6300db0f0f0df55780946bc2a541caa9d421 /tests/Server.hs
parent10829a428735d034f927e45561dcf94703cd376a (diff)
Update tests
Diffstat (limited to 'tests/Server.hs')
-rw-r--r--tests/Server.hs20
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 #-}
2module Main (main) where
3
4import Data.BEncode
5import Network.KRPC
6import Network.Socket
7import Shared
8
9
10main :: IO ()
11main = 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 ]