blob: ec86639e05bab4c578428318badab01015bad559 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
import qualified Data.ByteString as B
import System.Environment
import Remote.KRPC
import Shared
addr :: RemoteAddr
addr = (0, 6000)
main :: IO ()
main = do
print =<< call addr unitM ()
print =<< call addr echoM 0
call addr reverseM [1..1000]
print =<< call addr swapM (0, 1)
print =<< call addr shiftR ((), 1, [2..10])
let bs = B.replicate (32 * 1024) 0
bs' <- call addr echoBytes bs
print (bs == bs')
{-
forM_ [1..] $ const $ do
async addr myconcat (replicate 100 [1..10])
-}
|
