diff options
author | Sam T <pxqr.sta@gmail.com> | 2013-05-14 10:27:36 +0400 |
---|---|---|
committer | Sam T <pxqr.sta@gmail.com> | 2013-05-14 10:27:36 +0400 |
commit | d0038e9bde22751c9c926796a6c46be62a3cb81b (patch) | |
tree | d0955ea60d53d672f10e1e7c3be065a65b4193a6 /examples | |
parent | a2bc26abbe6ccea464c04b990f8a4a8fa769ba2a (diff) |
~ Minor changes.
Diffstat (limited to 'examples')
-rw-r--r-- | examples/Client.hs | 4 | ||||
-rw-r--r-- | examples/Server.hs | 1 | ||||
-rw-r--r-- | examples/Shared.hs | 6 |
3 files changed, 10 insertions, 1 deletions
diff --git a/examples/Client.hs b/examples/Client.hs index cd340a03..ec86639e 100644 --- a/examples/Client.hs +++ b/examples/Client.hs | |||
@@ -1,6 +1,7 @@ | |||
1 | {-# LANGUAGE OverloadedStrings #-} | 1 | {-# LANGUAGE OverloadedStrings #-} |
2 | module Main (main) where | 2 | module Main (main) where |
3 | 3 | ||
4 | import qualified Data.ByteString as B | ||
4 | import System.Environment | 5 | import System.Environment |
5 | import Remote.KRPC | 6 | import Remote.KRPC |
6 | import Shared | 7 | import Shared |
@@ -16,6 +17,9 @@ main = do | |||
16 | call addr reverseM [1..1000] | 17 | call addr reverseM [1..1000] |
17 | print =<< call addr swapM (0, 1) | 18 | print =<< call addr swapM (0, 1) |
18 | print =<< call addr shiftR ((), 1, [2..10]) | 19 | print =<< call addr shiftR ((), 1, [2..10]) |
20 | let bs = B.replicate (32 * 1024) 0 | ||
21 | bs' <- call addr echoBytes bs | ||
22 | print (bs == bs') | ||
19 | 23 | ||
20 | {- | 24 | {- |
21 | forM_ [1..] $ const $ do | 25 | forM_ [1..] $ const $ do |
diff --git a/examples/Server.hs b/examples/Server.hs index 0407c304..f636b0be 100644 --- a/examples/Server.hs +++ b/examples/Server.hs | |||
@@ -9,6 +9,7 @@ main :: IO () | |||
9 | main = server 6000 | 9 | main = server 6000 |
10 | [ unitM ==> return | 10 | [ unitM ==> return |
11 | , echoM ==> return | 11 | , echoM ==> return |
12 | , echoBytes ==> return | ||
12 | , swapM ==> \(a, b) -> return (b, a) | 13 | , swapM ==> \(a, b) -> return (b, a) |
13 | , reverseM ==> return . reverse | 14 | , reverseM ==> return . reverse |
14 | , shiftR ==> \(a, b, c) -> return (c, a, b) | 15 | , shiftR ==> \(a, b, c) -> return (c, a, b) |
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 | ||