summaryrefslogtreecommitdiff
path: root/tests/Server.hs
diff options
context:
space:
mode:
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 ]