From 5ee611585e4eb6acb89b34e6679d89e25098e23b Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Sun, 12 May 2013 06:46:58 +0400
Subject: - Remove Extractable class, fix multi param methods.

---
 examples/Server.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'examples/Server.hs')

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
 
 
 main :: IO ()
-main = server 6000 [swapM ==> \(a, b) -> return (b, a)]
+main = server 6000
+  [ unitM ==> return
+  , echoM ==> return
+  , swapM ==> \(a, b) -> return (b, a)
+  , reverseM ==> return . reverse
+  , shiftR ==> \(a, b, c) -> return (c, a, b)
+  ]
-- 
cgit v1.2.3