summaryrefslogtreecommitdiff
path: root/examples/simple_server.hs
blob: 6f3f99bd0eb920a55786280bc9350fa2837709ef (plain)
1
2
3
4
5
6
7
8
-- A minimal server

import Network.XmlRpc.Server

add :: Int -> Int -> IO Int
add x y = return (x + y)

main = cgiXmlRpcServer [("examples.add", fun add)]