rhbzquery-0.4.3: src/Help.hs

{-# LANGUAGE CPP #-}

-- SPDX-License-Identifier: GPL-2.0-or-later

module Help (detailedHelp)
where

import Data.List.Extra
#if !MIN_VERSION_base(4,11,0)
import Data.Monoid ((<>))
#endif
import qualified Options.Applicative.Help.Pretty as P

import ParseArg (statusList)

detailedHelp :: P.Doc
detailedHelp =
  P.vcat
  [ P.empty
  , P.text "Tool for generating bugzilla queries"
  , P.empty
  , P.text "STATUS = " <> P.lbrace <> P.align (P.fillCat (P.punctuate P.comma (map P.text (map lower statusList ++ ["all (open and closed)", "'<STATE'", "'>STATE'"]))) <> P.rbrace)
  , P.text "PRODUCTVERSION = " <> P.lbrace <> P.align (P.fillCat (P.punctuate P.comma (map P.text ["rawhide", "fedora", "fXY", "epel", "epelX", "rhel8", "rhel7", "rhelX.Z"])) <> P.rbrace)
  , P.text "op = search operator (eg '~' for substring: \"summary~akeyword\")"
  , P.empty
  , P.text "See https://github.com/juhp/rhbzquery#readme for examples"
  ]