diff options
Diffstat (limited to 'examples/Shared.hs')
-rw-r--r-- | examples/Shared.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/examples/Shared.hs b/examples/Shared.hs index 2d5b9cbb..e0e5268c 100644 --- a/examples/Shared.hs +++ b/examples/Shared.hs | |||
@@ -1,8 +1,9 @@ | |||
1 | {-# LANGUAGE OverloadedStrings #-} | 1 | {-# LANGUAGE OverloadedStrings #-} |
2 | module Shared | 2 | module Shared |
3 | (echoM, unitM, swapM, reverseM, shiftR | 3 | (echoM, echoBytes, unitM, swapM, reverseM, shiftR |
4 | ) where | 4 | ) where |
5 | 5 | ||
6 | import Data.ByteString (ByteString) | ||
6 | import Remote.KRPC | 7 | import Remote.KRPC |
7 | 8 | ||
8 | unitM :: Method () () | 9 | unitM :: Method () () |
@@ -11,6 +12,9 @@ unitM = method "unit" [] [] | |||
11 | echoM :: Method Int Int | 12 | echoM :: Method Int Int |
12 | echoM = method "echo" ["x"] ["x"] | 13 | echoM = method "echo" ["x"] ["x"] |
13 | 14 | ||
15 | echoBytes :: Method ByteString ByteString | ||
16 | echoBytes = method "echoBytes" ["x"] ["x"] | ||
17 | |||
14 | reverseM :: Method [Int] [Int] | 18 | reverseM :: Method [Int] [Int] |
15 | reverseM = method "reverse" ["xs"] ["ys"] | 19 | reverseM = method "reverse" ["xs"] ["ys"] |
16 | 20 | ||