-- | Echo server
main :: IO ()
main =
    withSocketsDo $ runRPC methods HostAny "3000"
  where
    methods = M.singleton "echo" echo
    echo = return . Right
main :: IO ()
main =
    withSocketsDo $ runRPC methods HostAny "3000"
  where
    methods = M.singleton "echo" echo
    echo = return . Right
main =
    withSocketsDo $ runRPC methods HostAny "3000"
  where
    methods = M.singleton "echo" echo
    echo = return . Right