Opts.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{-# LANGUAGE ApplicativeDo #-}
{-# LANGUAGE RecordWildCards #-}

module Opts where

import Paths_clusterpainter (version)
import Data.Version (showVersion)

import Options.Applicative

data Opts = Opts deriving Show

parseOpts :: IO Opts
parseOpts =
  customExecParser (prefs $ showHelpOnEmpty)
    $ info
        (opts <**> helper <**> simpleVersioner (showVersion version))
        (fullDesc
           <> header "git-deli -- delinearized git workflow"
           <> (footer
                 "This program is free software; see LICENSE file for details."))