authReader :: T.Text -> Either T.Text Auth
authReader t = case T.splitOn ":" t of
  [] -> Left t
  username:password -> pure . Basic username $ T.intercalate ":" password
authReader :: T.Text -> Either T.Text Auth
authReader t = case T.splitOn ":" t of
  [] -> Left t
  username:password -> pure . Basic username $ T.intercalate ":" password
authReader t = case T.splitOn ":" t of
  [] -> Left t
  username:password -> pure . Basic username $ T.intercalate ":" password