manpageAction :: [CommandSpec action] -> Flag Verbosity -> [String] -> Action
manpageAction commands _ extraArgs _ = do
  unless (null extraArgs) $
    die $ "'manpage' doesn't take any extra arguments: " ++ unwords extraArgs
  pname <- getProgName
  putStrLn (manpage pname commands)
manpageAction :: [CommandSpec action] -> Flag Verbosity -> [String] -> Action
manpageAction commands _ extraArgs _ = do
  unless (null extraArgs) $
    die $ "'manpage' doesn't take any extra arguments: " ++ unwords extraArgs
  pname <- getProgName
  putStrLn (manpage pname commands)
manpageAction commands _ extraArgs _ = do
  unless (null extraArgs) $
    die $ "'manpage' doesn't take any extra arguments: " ++ unwords extraArgs
  pname <- getProgName
  putStrLn (manpage pname commands)