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 = 273
          , srcLocStartCol = 5
          , srcLocEndLine = 273
          , srcLocEndCol = 13
          })
     [ Command
         "top"
         "command without subcommands"
         (Check
            Nothing
            True
            _
            (Setting
               Nothing
               (Setting
                  [ DashedLong ('n' :| "ame") ]
                  [ _ ]
                  False
                  Nothing
                  True
                  (Just ("NAME" :| []))
                  (Just
                     [ ( "name" :| []
                       , BimapCodec
                           _
                           _
                           (EitherCodec
                              PossiblyJointUnion
                              NullCodec
                              (BimapCodec _ _ (StringCodec Nothing)))
                       )
                     ])
                  Nothing
                  (Just "NAME")
                  (Just "name"))))
     , Command
         "sub"
         "command with subcommands"
         (Ap
            (Commands
               (Just
                  SrcLoc
                    { srcLocPackage = "main"
                    , srcLocModule = "OptEnvConf.APISpec"
                    , srcLocFile = "test/OptEnvConf/APISpec.hs"
                    , srcLocStartLine = 289
                    , srcLocStartCol = 3
                    , srcLocEndLine = 289
                    , srcLocEndCol = 11
                    })
               [ Command "a" "A" (Pure _) , Command "b" "B" (Pure _) ])
            (Commands
               (Just
                  SrcLoc
                    { srcLocPackage = "main"
                    , srcLocModule = "OptEnvConf.APISpec"
                    , srcLocFile = "test/OptEnvConf/APISpec.hs"
                    , srcLocStartLine = 298
                    , srcLocStartCol = 3
                    , srcLocEndLine = 298
                    , srcLocEndCol = 11
                    })
               [ Command "c" "C" (Pure _) , Command "d" "D" (Pure _) ]))
     ])