either :: (LoginError -> Text) -> (Text -> Text) -> (Either LoginError Text -> Text)
either :: (LoginError -> Text) -> (Text -> Text) -> (Either LoginError Text) -> Text