rpc-0.0.0: tests/stest.hs

{-# LANGUAGE TemplateHaskell #-}

module Main where
import Network.RPC.Server

tester :: Int -> Int
tester = (+1)

helloWorld :: String
helloWorld = "hello world"

tester2 :: Int -> Bool -> Bool
tester2 _ = not

main = $(share 9000 [ 'tester, 'tester2, 'helloWorld ])