diff options
Diffstat (limited to 'src/client/elm/View/SignIn.elm')
-rw-r--r-- | src/client/elm/View/SignIn.elm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/client/elm/View/SignIn.elm b/src/client/elm/View/SignIn.elm index 8fcac16..d35d655 100644 --- a/src/client/elm/View/SignIn.elm +++ b/src/client/elm/View/SignIn.elm @@ -14,17 +14,25 @@ import Update.SignIn exposing (..) import ServerCommunication as SC import ServerCommunication exposing (serverCommunications) +import Persona exposing (operations) + import Model exposing (Model) import Model.View.SignInView exposing (..) import Model.Translations exposing (getMessage) import View.Events exposing (onSubmitPrevDefault) +import View.Icon exposing (renderIcon) renderSignIn : Model -> SignInView -> Html renderSignIn model signInView = div [ class "signIn" ] - [ div + [ button + [ onClick operations.address Persona.SignIn ] + [ span [] [ text (getMessage "SignIn" model.translations) ] + , renderIcon "plug" + ] + , div [ class "result" ] [ signInResult model signInView ] ] |