opt-env-conf-test-0.0.0.2: test_resources/docs/secret/show.txt
WithConfig
_
Nothing
(Pure _)
(Ap
(Ap
(Ap
(Ap
(Check
Nothing
False
_
(Check
Nothing
False
_
(Setting
Nothing
(Setting
[ DashedLong ('f' :| "irst-secret-file") ]
[ _ ]
False
Nothing
True
(Just ("FIRST_SECRET_FILE" :| []))
(Just
(ConfigValSetting
("first-secret-file" :| [])
BimapCodec
_
_
(EitherCodec
PossiblyJointUnion
NullCodec
(BimapCodec _ _ (StringCodec Nothing))) :|
[]))
Nothing
(Just "FILE_PATH")
(Just "First example secret")))))
(Alt
(Check
Nothing
True
_
(Setting
Nothing
(Setting
[ DashedLong ('s' :| "econd-secret") ]
[ _ , _ ]
False
Nothing
True
Nothing
Nothing
Nothing
(Just "SECRET")
(Just "Second example secret, bare or in a file"))))
(Alt
(Check
Nothing
False
_
(Setting
Nothing
(Setting
[ DashedLong ('s' :| "econd-secret-file") ]
[ _ , _ ]
False
Nothing
True
Nothing
Nothing
Nothing
(Just "FILE_PATH")
(Just "Second example secret, bare or in a file"))))
(Alt
(Check
Nothing
True
_
(Setting
Nothing
(Setting
[]
[ _ , _ ]
False
Nothing
False
(Just ("SECOND_SECRET" :| []))
Nothing
Nothing
(Just "SECRET")
(Just "Second example secret, bare or in a file"))))
(Alt
(Check
Nothing
False
_
(Setting
Nothing
(Setting
[]
[ _ , _ ]
False
Nothing
False
(Just ("SECOND_SECRET_FILE" :| []))
Nothing
Nothing
(Just "FILE_PATH")
(Just "Second example secret, bare or in a file"))))
(Alt
(Check
Nothing
True
_
(Setting
Nothing
(Setting
[]
[ _ , _ ]
False
Nothing
False
Nothing
(Just
(ConfigValSetting
("second-secret" :| [])
BimapCodec
_
_
(EitherCodec
PossiblyJointUnion
NullCodec
(BimapCodec _ _ (StringCodec Nothing))) :|
[]))
Nothing
(Just "SECRET")
(Just "Second example secret, bare or in a file"))))
(Check
Nothing
False
_
(Setting
Nothing
(Setting
[]
[ _ , _ ]
False
Nothing
False
Nothing
(Just
(ConfigValSetting
("second-secret-file" :| [])
BimapCodec
_
_
(EitherCodec
PossiblyJointUnion
NullCodec
(BimapCodec _ _ (StringCodec Nothing))) :|
[]))
Nothing
(Just "FILE_PATH")
(Just "Second example secret, bare or in a file"))))))))))
(Alt
(Check
Nothing
True
_
(Setting
Nothing
(Setting
[ DashedLong ('s' :| "econd-secret") ]
[ _ , _ ]
False
Nothing
True
Nothing
Nothing
Nothing
(Just "SECRET")
(Just "Second example secret, bare or in a file, only option"))))
(Check
Nothing
False
_
(Setting
Nothing
(Setting
[ DashedLong ('s' :| "econd-secret-file") ]
[ _ , _ ]
False
Nothing
True
Nothing
Nothing
Nothing
(Just "FILE_PATH")
(Just "Second example secret, bare or in a file, only option"))))))
(Alt
(Check
Nothing
True
_
(Setting
Nothing
(Setting
[]
[ _ , _ ]
False
Nothing
False
(Just ("second-secret" :| []))
Nothing
Nothing
(Just "SECRET")
(Just "Second example secret, bare or in a file, only env"))))
(Check
Nothing
False
_
(Setting
Nothing
(Setting
[]
[ _ , _ ]
False
Nothing
False
(Just ("second-secret_FILE" :| []))
Nothing
Nothing
(Just "FILE_PATH")
(Just "Second example secret, bare or in a file, only env"))))))
(Alt
(Check
Nothing
True
_
(Setting
Nothing
(Setting
[]
[ _ , _ ]
False
Nothing
False
Nothing
(Just
(ConfigValSetting
("second-secret" :| [])
BimapCodec
_
_
(EitherCodec
PossiblyJointUnion
NullCodec
(BimapCodec _ _ (StringCodec Nothing))) :|
[]))
Nothing
(Just "SECRET")
(Just "Second example secret, bare or in a file, only conf"))))
(Check
Nothing
False
_
(Setting
Nothing
(Setting
[]
[ _ , _ ]
False
Nothing
False
Nothing
(Just
(ConfigValSetting
("second-secret-file" :| [])
BimapCodec
_
_
(EitherCodec
PossiblyJointUnion
NullCodec
(BimapCodec _ _ (StringCodec Nothing))) :|
[]))
Nothing
(Just "FILE_PATH")
(Just "Second example secret, bare or in a file, only conf"))))))