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