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/Server.hs | |
| parent | ee8c82ed5ba8be43d858fa28020cc249d21795f6 (diff) | |
- Remove Extractable class, fix multi param methods.
Diffstat (limited to 'examples/Server.hs')
| -rw-r--r-- | examples/Server.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/examples/Server.hs b/examples/Server.hs index 3760b2ab..0407c304 100644 --- a/examples/Server.hs +++ b/examples/Server.hs | |||
| @@ -6,4 +6,10 @@ import Shared | |||
| 6 | 6 | ||
| 7 | 7 | ||
| 8 | main :: IO () | 8 | main :: IO () |
| 9 | main = server 6000 [swapM ==> \(a, b) -> return (b, a)] | 9 | main = server 6000 |
| 10 | [ unitM ==> return | ||
| 11 | , echoM ==> return | ||
| 12 | , swapM ==> \(a, b) -> return (b, a) | ||
| 13 | , reverseM ==> return . reverse | ||
| 14 | , shiftR ==> \(a, b, c) -> return (c, a, b) | ||
| 15 | ] | ||