Rename type.

This commit is contained in:
Dillon Kearns 2022-08-24 20:12:26 -07:00
parent 41e4428bf4
commit 82b2f358fa

View File

@ -302,7 +302,7 @@ allForms =
logoutForm logoutForm
|> Form.toServerForm |> Form.toServerForm
|> Form.initCombinedServer (\_ -> Logout) |> Form.initCombinedServer (\_ -> Logout)
|> Form.combineServer LI form |> Form.combineServer LogIn form
action : RouteParams -> Request.Parser (DataSource (Response ActionData ErrorPage)) action : RouteParams -> Request.Parser (DataSource (Response ActionData ErrorPage))
@ -341,7 +341,7 @@ action routeParams =
) )
|> DataSource.succeed |> DataSource.succeed
Ok ( _, LI emailAddress ) -> Ok ( _, LogIn emailAddress ) ->
( okSession ( okSession
, { maybeError = Nothing , { maybeError = Nothing
, sentLink = True , sentLink = True
@ -354,7 +354,7 @@ action routeParams =
type Action type Action
= LI EmailAddress = LogIn EmailAddress
| Logout | Logout