packages feed

opt-env-conf-test-0.0.0.0: test_resources/docs/three-commands/show.txt

WithConfig
  _
  (Check
     Nothing
     False
     _
     (Alt
        (Check
           Nothing
           False
           _
           (Setting
              Nothing
              (Setting
                 [ DashedLong ('c' :| "onfig-file") ]
                 [ _ ]
                 False
                 Nothing
                 True
                 (Just ("CONFIG_FILE" :| []))
                 Nothing
                 Nothing
                 (Just "FILE_PATH")
                 (Just "Path to the configuration file"))))
        (Check Nothing False _ (Pure _))))
  (Commands
     (Just
        SrcLoc
          { srcLocPackage = "main"
          , srcLocModule = "OptEnvConf.APISpec"
          , srcLocFile = "test/OptEnvConf/APISpec.hs"
          , srcLocStartLine = 239
          , srcLocStartCol = 5
          , srcLocEndLine = 239
          , srcLocEndCol = 13
          })
     [ Command
         "one"
         "first"
         (Check
            Nothing
            True
            _
            (Setting
               Nothing
               (Setting
                  []
                  [ _ ]
                  True
                  Nothing
                  False
                  Nothing
                  Nothing
                  Nothing
                  (Just "STR")
                  (Just "argument"))))
     , Command
         "two"
         "second"
         (Ap
            (Check
               Nothing
               True
               _
               (Setting
                  Nothing
                  (Setting
                     [ DashedLong ('n' :| "umber") , DashedShort 'n' ]
                     [ _ ]
                     False
                     Nothing
                     True
                     (Just ("NUMBER" :| []))
                     (Just
                        [ ( "number" :| []
                          , BimapCodec
                              _
                              _
                              (EitherCodec
                                 PossiblyJointUnion
                                 NullCodec
                                 (BimapCodec
                                    _
                                    _
                                    (NumberCodec
                                       Nothing
                                       (Just
                                          NumberBounds
                                            { numberBoundsLower = -9.223372036854775808e18
                                            , numberBoundsUpper = 9.223372036854775807e18
                                            }))))
                          )
                        ])
                     Nothing
                     (Just "INT")
                     (Just "number"))))
            (Alt
               (Setting
                  Nothing
                  (Setting
                     [ DashedLong ('(' :| "enable|disable)-enable") ]
                     []
                     False
                     (Just _)
                     False
                     Nothing
                     Nothing
                     Nothing
                     Nothing
                     (Just "enable extra")))
               (Alt
                  (Setting
                     Nothing
                     (Setting
                        [ DashedLong ('d' :| "isable-enable") ]
                        []
                        False
                        (Just _)
                        False
                        Nothing
                        Nothing
                        Nothing
                        Nothing
                        Nothing))
                  (Alt
                     (Setting
                        Nothing
                        (Setting
                           [ DashedLong ('e' :| "nable-enable") ]
                           []
                           False
                           (Just _)
                           False
                           Nothing
                           Nothing
                           Nothing
                           Nothing
                           Nothing))
                     (Alt
                        (Setting
                           Nothing
                           (Setting
                              []
                              [ _ ]
                              False
                              Nothing
                              False
                              (Just ("ENABLE" :| []))
                              Nothing
                              Nothing
                              (Just "BOOL")
                              (Just "enable extra")))
                        (Alt
                           (Setting
                              Nothing
                              (Setting
                                 []
                                 []
                                 False
                                 Nothing
                                 False
                                 Nothing
                                 (Just
                                    [ ( "enable" :| []
                                      , BimapCodec
                                          _
                                          _
                                          (EitherCodec
                                             PossiblyJointUnion NullCodec (BoolCodec Nothing))
                                      )
                                    ])
                                 Nothing
                                 Nothing
                                 (Just "enable extra")))
                           (Pure _)))))))
     , Command "three" "third" (Pure _)
     ])