summaryrefslogtreecommitdiff
path: root/tests/Shared.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Shared.hs')
-rw-r--r--tests/Shared.hs39
1 files changed, 0 insertions, 39 deletions
diff --git a/tests/Shared.hs b/tests/Shared.hs
deleted file mode 100644
index 16547644..00000000
--- a/tests/Shared.hs
+++ /dev/null
@@ -1,39 +0,0 @@
1{-# LANGUAGE OverloadedStrings #-}
2module Shared
3 ( echoM
4 , echoBytes
5 , unitM
6 , swapM
7 , reverseM
8 , shiftR
9 , rawM
10 , rawDictM
11 ) where
12
13import Data.ByteString (ByteString)
14import Data.BEncode
15import Network.KRPC
16
17unitM :: Method () ()
18unitM = method "unit" [] []
19
20echoM :: Method Int Int
21echoM = method "echo" ["x"] ["x"]
22
23echoBytes :: Method ByteString ByteString
24echoBytes = method "echoBytes" ["x"] ["x"]
25
26reverseM :: Method [Int] [Int]
27reverseM = method "reverse" ["xs"] ["ys"]
28
29swapM :: Method (Int, Int) (Int, Int)
30swapM = method "swap" ["x", "y"] ["b", "a"]
31
32shiftR :: Method ((), Int, [Int]) ([Int], (), Int)
33shiftR = method "shiftR" ["x", "y", "z"] ["a", "b", "c"]
34
35rawM :: Method BValue BValue
36rawM = method "rawM" [""] [""]
37
38rawDictM :: Method BValue BValue
39rawDictM = method "m" [] [] \ No newline at end of file