diff options
Diffstat (limited to 'tests/Shared.hs')
-rw-r--r-- | tests/Shared.hs | 39 |
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 #-} | ||
2 | module Shared | ||
3 | ( echoM | ||
4 | , echoBytes | ||
5 | , unitM | ||
6 | , swapM | ||
7 | , reverseM | ||
8 | , shiftR | ||
9 | , rawM | ||
10 | , rawDictM | ||
11 | ) where | ||
12 | |||
13 | import Data.ByteString (ByteString) | ||
14 | import Data.BEncode | ||
15 | import Network.KRPC | ||
16 | |||
17 | unitM :: Method () () | ||
18 | unitM = method "unit" [] [] | ||
19 | |||
20 | echoM :: Method Int Int | ||
21 | echoM = method "echo" ["x"] ["x"] | ||
22 | |||
23 | echoBytes :: Method ByteString ByteString | ||
24 | echoBytes = method "echoBytes" ["x"] ["x"] | ||
25 | |||
26 | reverseM :: Method [Int] [Int] | ||
27 | reverseM = method "reverse" ["xs"] ["ys"] | ||
28 | |||
29 | swapM :: Method (Int, Int) (Int, Int) | ||
30 | swapM = method "swap" ["x", "y"] ["b", "a"] | ||
31 | |||
32 | shiftR :: Method ((), Int, [Int]) ([Int], (), Int) | ||
33 | shiftR = method "shiftR" ["x", "y", "z"] ["a", "b", "c"] | ||
34 | |||
35 | rawM :: Method BValue BValue | ||
36 | rawM = method "rawM" [""] [""] | ||
37 | |||
38 | rawDictM :: Method BValue BValue | ||
39 | rawDictM = method "m" [] [] \ No newline at end of file | ||