~ Move exsamples to tests.

1 files changed, 16 insertions, 0 deletions

diff --git a/tests/Server.hs b/tests/Server.hs
new file mode 100644
index 00000000..f636b0be
--- /dev/null
+++ b/tests/Server.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE IncoherentInstances #-}
+module Main (main) where
+
+import Remote.KRPC
+import Shared
+
+
+main :: IO ()
+main = server 6000
+  [ unitM ==> return
+  , echoM ==> return
+  , echoBytes ==> return
+  , swapM ==> \(a, b) -> return (b, a)
+  , reverseM ==> return . reverse
+  , shiftR ==> \(a, b, c) -> return (c, a, b)
+  ]