show.txt

WithConfig
  _
  Nothing
  (Pure _)
  (Ap
     (Alt
        (Check
           Nothing
           True
           (fromList [])
           _
           (Setting
              Nothing
              (Setting
                 [ DashedLong ('i' :| "nt") ]
                 [ _ ]
                 False
                 Nothing
                 True
                 (Just
                    (EnvVarSetting
                       { envVarSettingVar = "INT" , envVarSettingAllowPrefix = True } :|
                       []))
                 (Just
                    (ConfigValSetting
                       ("int" :| [])
                       BimapCodec
                       _
                       _
                       (EitherCodec
                          PossiblyJointUnion
                          NullCodec
                          (BimapCodec
                             _
                             _
                             (IntegerCodec
                                Nothing
                                Bounds
                                  { boundsLower = Just (-9223372036854775808)
                                  , boundsUpper = Just 9223372036854775807
                                  }))) :|
                       []))
                 Nothing
                 []
                 False
                 (Just "INT")
                 (Just "int or string")
                 Nothing
                 (fromList []))))
        (Check
           Nothing
           True
           (fromList [])
           _
           (Setting
              Nothing
              (Setting
                 [ DashedLong ('s' :| "tring") ]
                 [ _ ]
                 False
                 Nothing
                 True
                 (Just
                    (EnvVarSetting
                       { envVarSettingVar = "STRING"
                       , envVarSettingAllowPrefix = True
                       } :|
                       []))
                 (Just
                    (ConfigValSetting
                       ("string" :| [])
                       BimapCodec
                       _
                       _
                       (EitherCodec
                          PossiblyJointUnion
                          NullCodec
                          (BimapCodec _ _ (StringCodec Nothing))) :|
                       []))
                 Nothing
                 []
                 False
                 (Just "STR")
                 (Just "int or string")
                 Nothing
                 (fromList [])))))
     (Alt
        (Setting
           Nothing
           (Setting
              [ DashedLong ('[' :| "no-]other") ]
              []
              False
              (Just _)
              False
              Nothing
              Nothing
              Nothing
              []
              False
              Nothing
              (Just "int or string")
              Nothing
              (fromList [])))
        (Alt
           (Setting
              Nothing
              (Setting
                 [ DashedLong ('n' :| "o-other") ]
                 []
                 False
                 (Just _)
                 False
                 Nothing
                 Nothing
                 Nothing
                 []
                 True
                 Nothing
                 Nothing
                 Nothing
                 (fromList [])))
           (Alt
              (Setting
                 Nothing
                 (Setting
                    [ DashedLong ('o' :| "ther") ]
                    []
                    False
                    (Just _)
                    False
                    Nothing
                    Nothing
                    Nothing
                    []
                    True
                    Nothing
                    Nothing
                    Nothing
                    (fromList [])))
              (Alt
                 (Setting
                    Nothing
                    (Setting
                       []
                       [ _ ]
                       False
                       Nothing
                       False
                       (Just
                          (EnvVarSetting
                             { envVarSettingVar = "OTHER" , envVarSettingAllowPrefix = True } :|
                             []))
                       Nothing
                       Nothing
                       []
                       False
                       (Just "BOOL")
                       (Just "int or string")
                       Nothing
                       (fromList [])))
                 (Alt
                    (Setting
                       Nothing
                       (Setting
                          []
                          []
                          False
                          Nothing
                          False
                          Nothing
                          (Just
                             (ConfigValSetting
                                ("other" :| [])
                                BimapCodec
                                _
                                _
                                (EitherCodec PossiblyJointUnion NullCodec (BoolCodec Nothing)) :|
                                []))
                          Nothing
                          []
                          False
                          Nothing
                          (Just "int or string")
                          Nothing
                          (fromList [])))
                    (Pure _)))))))