diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-05-12 06:46:58 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-05-12 06:46:58 +0400 |
| commit | 5ee611585e4eb6acb89b34e6679d89e25098e23b (patch) | |
| tree | 2ce638efe2782efc1559d82e859abf1129d34aad /examples/Client.hs | |
| parent | ee8c82ed5ba8be43d858fa28020cc249d21795f6 (diff) | |
- Remove Extractable class, fix multi param methods.
Diffstat (limited to 'examples/Client.hs')
| -rw-r--r-- | examples/Client.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/examples/Client.hs b/examples/Client.hs index 1d925c7a..cd340a03 100644 --- a/examples/Client.hs +++ b/examples/Client.hs | |||
| @@ -10,7 +10,12 @@ addr :: RemoteAddr | |||
| 10 | addr = (0, 6000) | 10 | addr = (0, 6000) |
| 11 | 11 | ||
| 12 | main :: IO () | 12 | main :: IO () |
| 13 | main = print =<< call addr swapM (1, 2) | 13 | main = do |
| 14 | print =<< call addr unitM () | ||
| 15 | print =<< call addr echoM 0 | ||
| 16 | call addr reverseM [1..1000] | ||
| 17 | print =<< call addr swapM (0, 1) | ||
| 18 | print =<< call addr shiftR ((), 1, [2..10]) | ||
| 14 | 19 | ||
| 15 | {- | 20 | {- |
| 16 | forM_ [1..] $ const $ do | 21 | forM_ [1..] $ const $ do |