opt-env-conf-test-0.0.0.2: test_resources/docs/three-commands/show.txt
WithConfig
_
Nothing
(Pure _)
(Commands
Nothing
(Just "one")
[ 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
(ConfigValSetting
("number" :| [])
BimapCodec
_
_
(EitherCodec
PossiblyJointUnion
NullCodec
(BimapCodec
_
_
(IntegerCodec
Nothing
Bounds
{ boundsLower = Just (-9223372036854775808)
, boundsUpper = Just 9223372036854775807
}))) :|
[]))
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
(ConfigValSetting
("enable" :| [])
BimapCodec
_
_
(EitherCodec
PossiblyJointUnion NullCodec (BoolCodec Nothing)) :|
[]))
Nothing
Nothing
(Just "enable extra")))
(Pure _)))))))
, Command "three-very-long-command-name" "third" (Pure _)
])