- Remove Extractable class, fix multi param methods.

1 files changed, 16 insertions, 3 deletions

diff --git a/examples/Shared.hs b/examples/Shared.hs
index 49cef490..2d5b9cbb 100644
--- a/examples/Shared.hs
+++ b/examples/Shared.hs
@@ -1,14 +1,27 @@
 {-# LANGUAGE OverloadedStrings #-}
-module Shared (echoInt, swapM) where
+module Shared
+       (echoM, unitM, swapM, reverseM, shiftR
+       ) where
 
 import Remote.KRPC
 
-echoInt :: Method Int Int
-echoInt = idM
+unitM :: Method () ()
+unitM = method "unit" [] []
+
+echoM :: Method Int Int
+echoM = method "echo" ["x"] ["x"]
+
+reverseM :: Method [Int] [Int]
+reverseM = method "reverse" ["xs"] ["ys"]
 
 swapM :: Method (Int, Int) (Int, Int)
 swapM = method "swap" ["x", "y"] ["b", "a"]
 
+shiftR :: Method ((), Int, [Int]) ([Int], (), Int)
+shiftR = method "shiftR" ["x", "y", "z"] ["a", "b", "c"]
+
+
+
 {-
 type NodeId = Int
 type InfoHashe = Int