haxr-3000.6: examples/time-xmlrpc-com.hs

import Network.XmlRpc.Client
import System.Time

server = "http://time.xmlrpc.com/RPC2"

currentTime :: IO CalendarTime
currentTime = remote server "currentTime.getCurrentTime"

main = do
       t <- currentTime
       putStrLn (calendarTimeToString t)