blob: bf486cb5315090e08135188a17541432d90ced74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
import System.Environment
import Remote.KRPC
import Shared
addr :: RemoteAddr
addr = (0, 6000)
main :: IO ()
main = print =<< call addr echoInt . read . head =<< getArgs
{-
forM_ [1..] $ const $ do
async addr myconcat (replicate 100 [1..10])
-}
|
