ownerArgP :: T.Text -> Parser Username
ownerArgP htext = argument (Username . T.pack <$> str) $
      metavar "OWNER"
  <>  help (T.unpack htext)
ownerArgP :: T.Text -> Parser Username
ownerArgP htext = argument (Username . T.pack <$> str) $
      metavar "OWNER"
  <>  help (T.unpack htext)
ownerArgP htext = argument (Username . T.pack <$> str) $
      metavar "OWNER"
  <>  help (T.unpack htext)