import Paths_twat (version)
import Data.Version (showVersion)
-import OptionalConfiguration
import ExitCodes
+import OptionalConfiguration
description :: String
description = "Twat twats tweets so you don't have to twitter."
&= helpArg [groupname "Common flags"]
&= versionArg [groupname "Common flags"]
-show_help :: IO (CmdArgs OptionalCfg)
-show_help = withArgs ["--help"] parse_args
+show_help :: IO OptionalCfg
+show_help = withArgs ["--help"] parse_args >>= cmdArgsApply