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
 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)
+  ]

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	]