qux-0.1.0.0: main/Main.hs

{-# OPTIONS_HADDOCK hide, prune #-}

{-|
Module      : Main

Copyright   : (c) Henry J. Wylde, 2015
License     : BSD3
Maintainer  : public@hjwylde.com
-}

module Main (
    main
) where

import Control.Applicative

import Options.Applicative
import Options.Applicative.Builder

import Qux.Commands
import qualified Qux.Commands.Build as Build
import qualified Qux.Commands.Check as Check
import qualified Qux.Commands.Print as Print
import qualified Qux.Commands.Run   as Run


-- | Main.
main :: IO ()
main = customExecParser (prefs $ columns 100) options >>= handle

handle :: Options -> IO ()
handle options = case argCommand options of
    Build   options -> Build.handle options
    Check   options -> Check.handle options
    Print   options -> Print.handle options
    Run     options -> Run.handle   options