Deadpan-DDP-0.4.1.0: src/Main.hs

module Main (main) where

import System.IO
import System.Exit
import Web.DDP.Deadpan
import System.Environment

main :: IO ()
main = getArgs >>= go

go :: [String] -> IO ()
go xs | hashelp xs = help
go [url]           = void $ run $ getURI url
go _               = help >> exitFailure

run :: Either Error Params -> IO String
run (Left  err   ) = hPutStrLn stderr err >> exitFailure
run (Right params) = runPingClient params (logEverything >> liftIO getLine)

hashelp :: [String] -> Bool
hashelp xs = any (flip elem xs) (words "-h --help")

help :: IO ()
help = hPutStrLn stderr "Usage: deadpan [-h | --help] <URL>"