-- helpmeQ ---------------------------------------------------------------------

-- | ExpQ variant of `helpme`

helpmeQ :: ArgArity -> String -> ExpQ
helpmeQ arity argtype =
  [| mkOpt "" [ "help" ] (helpme def { arg_arity = arity, arg_type = argtype })
     "this help; use --help=<opt> for detail (no leading hyphens on <opt>)"
     (concat [ "Provide help text: without an arg, produces a summary options "
             , "output; with an arg (--help=foo), then detailed help text for "
             , "that option (if any is available) will be output."
             ])
     "" "" -- option typename; dflt
   |]
helpmeQ :: ArgArity -> String -> ExpQ
helpmeQ arity argtype =
  [| mkOpt "" [ "help" ] (helpme def { arg_arity = arity, arg_type = argtype })
     "this help; use --help=<opt> for detail (no leading hyphens on <opt>)"
     (concat [ "Provide help text: without an arg, produces a summary options "
             , "output; with an arg (--help=foo), then detailed help text for "
             , "that option (if any is available) will be output."
             ])
     "" "" -- option typename; dflt
   |]
helpmeQ arity argtype =
  [| mkOpt "" [ "help" ] (helpme def { arg_arity = arity, arg_type = argtype })
     "this help; use --help=<opt> for detail (no leading hyphens on <opt>)"
     (concat [ "Provide help text: without an arg, produces a summary options "
             , "output; with an arg (--help=foo), then detailed help text for "
             , "that option (if any is available) will be output."
             ])
     "" "" -- option typename; dflt
   |]