DMuCheck-0.3.0.0: src/Slave.hs

module Main where
import System.Environment (getArgs)

import qualified Test.DMuCheck.Slave as Slave

localHost :: String
localHost = "127.0.0.1"

help :: IO ()
help = do putStrLn "d-slave <port>"
          putStrLn "E.g."
          putStrLn "  d-slave 12345"

main :: IO ()
main = do
  args <- getArgs
  case args of
    ("-h":_) -> help
    (port : _args) -> Slave.process localHost port
    _ -> putStrLn "use -h to get help."