client/server library

I'm wondering if anyone has written anything akin to a client/server library which is based on sockets, something along the lines of:

mkServer :: Int -> (String -> String) -> IO ()

so I could then say:

module MyServer where

main = mkServer portNum myServerFn

myServerFn "getname" = "This server's name is Bob" myServerFn _ = "Unknown command"

and

data Server = ... serverConnect :: Int -> IO Server queryServer :: Server -> String -> IO String serverDisconnect :: Server -> IO ()

so I could write:

module MyClient where

main = do s <- serverConnect portNum res <- queryServer "getname" putStrLn res serverDisconnect s

and this would print "This server's name is Bob". I don't imagine such a "library" would be difficult to write; it would mostly be wrapping around the Socket library (the assumption would be that the server and client would both be running on the same machine). But it would need to be robust (i.e., the server should my multithreaded among other things), etc. I could probably figure out how to write some such thing, but if someone else who knows more about the net and concurrent packages already has (I know nothing), I'd love to steal their code :) - Hal -- Hal Daume III "Computer science is no more about computers | hdaume@isi.edu than astronomy is about telescopes." -Dijkstra | www.isi.edu/~hdaume