haxr-3000.11.6.1: examples/test_server.hs

-- A simple server

import System.Time
import Network.XmlRpc.Server

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

time :: IO CalendarTime
time = getClockTime >>= toCalendarTime

fault :: IO Int -- dummy
fault = fail "blaha"

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