gistfile1.hs

module Main where

import System.Environment
import System.IO
import Control.Monad (unless)

import Server
import Client

test :: HandlerFunc
test h msg = unless (show msg == "not") $ hPutStrLn h msg 

temp :: [String] -> IO ()
temp ["client", hostname, port] = runClient hostname (fromIntegral $ read port) "hello"
temp ["server", port] = runServer (fromIntegral $ read port) test
temp _ = getProgName >>= putStr . (++) "Usage: " >> putStrLn " [OPTIONS]"

main = getArgs >>= temp