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 _))))
  (Alt
     (Check
        Nothing
        True
        _
        (Setting
           Nothing
           (Setting
              [ DashedLong ('(' :| "enable|disable)-example") ]
              []
              False
              (Just _)
              False
              Nothing
              Nothing
              Nothing
              Nothing
              (Just "Example of an enable/disable switch"))))
     (Alt
        (Check
           Nothing
           True
           _
           (Setting
              Nothing
              (Setting
                 [ DashedLong ('d' :| "isable-example") ]
                 []
                 False
                 (Just _)
                 False
                 Nothing
                 Nothing
                 Nothing
                 Nothing
                 Nothing)))
        (Alt
           (Check
              Nothing
              True
              _
              (Setting
                 Nothing
                 (Setting
                    [ DashedLong ('e' :| "nable-example") ]
                    []
                    False
                    (Just _)
                    False
                    Nothing
                    Nothing
                    Nothing
                    Nothing
                    Nothing)))
           (Alt
              (Check
                 Nothing
                 True
                 _
                 (Setting
                    Nothing
                    (Setting
                       []
                       [ _ ]
                       False
                       Nothing
                       False
                       (Just ("EXAMPLE" :| []))
                       Nothing
                       Nothing
                       (Just "BOOL")
                       (Just "Example of an enable/disable switch"))))
              (Alt
                 (Check
                    Nothing
                    True
                    _
                    (Setting
                       Nothing
                       (Setting
                          []
                          []
                          False
                          Nothing
                          False
                          Nothing
                          (Just
                             [ ( "example" :| []
                               , BimapCodec
                                   _
                                   _
                                   (EitherCodec PossiblyJointUnion NullCodec (BoolCodec Nothing))
                               )
                             ])
                          Nothing
                          Nothing
                          (Just "Example of an enable/disable switch"))))
                 (Pure _))))))