-----------------------------------------------------------------------------
-- |
-- Module      :  Main
-- Copyright   :  (C) 2014 Parnell Springmeyer
-- License     :  AllRightsReserved
-- Maintainer  :  Parnell Springmeyer <parnell@digitalmentat.com>
-- Stability   :  stable
--
-- This is the entry point for the `sub` executable. Main sets up
-- the cli options configuration and parses configuration file options.
----------------------------------------------------------------------------

{-# LANGUAGE OverloadedStrings #-}

module Main where

import           Data.Version           (showVersion)
import           Paths_pub              (version)
import           System.Console.CmdArgs

import           Sub
import           Sub.Internal

-- | Command line argument configuration.
--
-- Help messages, switches, options, and the human-readable version
-- number is configured here.
programArgs :: PArgs
programArgs = PArgs
    { chan  = def &= argPos 0 &= typ "CHANNEL"
    , host  = def &= name "h" &= typ "STRING" &= help "Redis host (default `localhost`)"
    , port  = def &= name "p" &= help "Redis port (default `6379`)"
    , db    = def &= name "d" &= help "Redis database (default `0`)"
    } &=
    verbosity &=
    help    "Pipe from a pub/sub channel to stdout." &=
    summary ("sub v" ++ showVersion version) &=
    noAtExpand &=
    details ["Given a redis pub/sub channel, pipe to stdout."]

main :: IO ()
main = cmdArgs programArgs >>= handleOpts >>= pipePublish