-- | List of options available
options :: OptsList
options =
    [ Option "e" ["host"]
        (ReqArg (\arg opt -> opt {heimHost = arg}) "HOST") "Heim instance to connect to"
    , Option "p" ["port"]
        (ReqArg (\arg opt -> opt {heimPort = read arg :: Int}) "PORT") "Port to use"
    , Option "r" ["rooms", "room"]
        (ReqArg (\arg opt -> opt {roomList = arg}) "ROOMS") "Rooms to join"
    , Option "s" ["nossl"]
        (NoArg (\opt -> opt {useSSL = False})) "Disable SSL"
    , Option "l" ["log"]
        (ReqArg (\arg opt -> opt {logTarget = arg}) "LOG") "Logging FilePath"
    , Option "i" ["identity"]
        (ReqArg (\arg opt -> opt {botAccount = arg}) "ID") "Bot Identity FilePath"
    , Option "c" ["config"]
        (ReqArg (\arg opt -> opt {config = arg}) "CONFIG") "Path for the bot config file"
    , Option "n" ["nick"]
        (ReqArg (\arg opt -> opt {botNick = arg}) "NICK") "Nickname to use"
    , Option "h" ["help"]
        (NoArg (\opt -> opt {showHelp = True})) "Shows this help."
    ]
options :: OptsList
options =
    [ Option "e" ["host"]
        (ReqArg (\arg opt -> opt {heimHost = arg}) "HOST") "Heim instance to connect to"
    , Option "p" ["port"]
        (ReqArg (\arg opt -> opt {heimPort = read arg :: Int}) "PORT") "Port to use"
    , Option "r" ["rooms", "room"]
        (ReqArg (\arg opt -> opt {roomList = arg}) "ROOMS") "Rooms to join"
    , Option "s" ["nossl"]
        (NoArg (\opt -> opt {useSSL = False})) "Disable SSL"
    , Option "l" ["log"]
        (ReqArg (\arg opt -> opt {logTarget = arg}) "LOG") "Logging FilePath"
    , Option "i" ["identity"]
        (ReqArg (\arg opt -> opt {botAccount = arg}) "ID") "Bot Identity FilePath"
    , Option "c" ["config"]
        (ReqArg (\arg opt -> opt {config = arg}) "CONFIG") "Path for the bot config file"
    , Option "n" ["nick"]
        (ReqArg (\arg opt -> opt {botNick = arg}) "NICK") "Nickname to use"
    , Option "h" ["help"]
        (NoArg (\opt -> opt {showHelp = True})) "Shows this help."
    ]
options =
    [ Option "e" ["host"]
        (ReqArg (\arg opt -> opt {heimHost = arg}) "HOST") "Heim instance to connect to"
    , Option "p" ["port"]
        (ReqArg (\arg opt -> opt {heimPort = read arg :: Int}) "PORT") "Port to use"
    , Option "r" ["rooms", "room"]
        (ReqArg (\arg opt -> opt {roomList = arg}) "ROOMS") "Rooms to join"
    , Option "s" ["nossl"]
        (NoArg (\opt -> opt {useSSL = False})) "Disable SSL"
    , Option "l" ["log"]
        (ReqArg (\arg opt -> opt {logTarget = arg}) "LOG") "Logging FilePath"
    , Option "i" ["identity"]
        (ReqArg (\arg opt -> opt {botAccount = arg}) "ID") "Bot Identity FilePath"
    , Option "c" ["config"]
        (ReqArg (\arg opt -> opt {config = arg}) "CONFIG") "Path for the bot config file"
    , Option "n" ["nick"]
        (ReqArg (\arg opt -> opt {botNick = arg}) "NICK") "Nickname to use"
    , Option "h" ["help"]
        (NoArg (\opt -> opt {showHelp = True})) "Shows this help."
    ]