krpc-0.2.0.0: tests/Server.hs

{-# LANGUAGE IncoherentInstances #-}
module Main (main) where

import Data.BEncode
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)
  , rawM      ==> return
  , rawDictM  ==> return
  ]