ownerP :: T.Text -> Parser Username
ownerP htext = option (Username . T.pack <$> str) $
      short 'o'
  <>  long "owner"
  <>  help (T.unpack htext)
ownerP :: T.Text -> Parser Username
ownerP htext = option (Username . T.pack <$> str) $
      short 'o'
  <>  long "owner"
  <>  help (T.unpack htext)
ownerP htext = option (Username . T.pack <$> str) $
      short 'o'
  <>  long "owner"
  <>  help (T.unpack htext)