aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/View/SignIn.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/View/SignIn.elm')
-rw-r--r--src/client/elm/View/SignIn.elm10
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 ]
]