haxr-3000.11.6.1: examples/simple_server.hs

-- A minimal server

import Network.XmlRpc.Server

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

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