blob: 444362c167ca48d12a5318b0d04b176a3477b713 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
import Data.ByteString (ByteString)
import Network.KRPC
echo :: Method ByteString ByteString
echo = method "echo" ["x"] ["x"]
main :: IO ()
main = server 6000 [ echo ==> return ]
|