]> Git — Sourcephile - majurity.git/blob - hjugement-cli/src/Hjugement/CLI.hs
stack: bump to lts-14.13
[majurity.git] / hjugement-cli / src / Hjugement / CLI.hs
1 {-# LANGUAGE AllowAmbiguousTypes #-}
2 {-# LANGUAGE OverloadedStrings #-}
3 {-# LANGUAGE NoMonomorphismRestriction #-}
4 {-# LANGUAGE TypeApplications #-}
5 {-# LANGUAGE NamedFieldPuns #-}
6 {-# OPTIONS_GHC -Wno-missing-signatures #-}
7 module Hjugement.CLI where
8
9 import Control.Monad (Monad(..))
10 import Data.Bool
11 import Data.Function (($))
12 import Data.Semigroup (Semigroup(..))
13 import Data.Text (Text)
14 import Data.Void (Void)
15 import Symantic.CLI as CLI
16 import qualified Data.Text as Text
17 import qualified Data.Version as Version
18 import qualified Paths_hjugement_cli as Hjugement
19 import qualified Symantic.Document as Doc
20
21 import Hjugement.CLI.Utils
22 import Hjugement.CLI.Administrator
23 import Hjugement.CLI.Registrar
24 import Hjugement.CLI.Trustee
25 import Hjugement.CLI.Voter
26
27 progname :: Text
28 progname = "hjugement"
29
30 api =
31 program "hjugement" $
32 (api_options <?> api_agent) <!>
33 api_help True <!>
34 api_version
35 run =
36 run_agent :!:
37 run_help api :!:
38 run_version
39
40 api_agent =
41 rule "AGENT" $
42 api_administrator <!>
43 api_trustee <!>
44 api_registrar <!>
45 api_voter
46 run_agent params =
47 run_administrator params :!:
48 run_trustee params :!:
49 run_registrar params :!:
50 run_voter params
51
52 api_version =
53 "Print the version."
54 `helps`
55 tag (TagLong "version") nothing
56 <.> response @Doc
57 run_version =
58 return (Doc.from version <> Doc.newline)
59 version :: Text
60 version =
61 progname <> "-" <>
62 Text.pack (Version.showVersion Hjugement.version)
63
64 parseAPI = parser @Void @Doc api run