From 5bfd349bedb9c395cbeb38bb888e379ba36d5d35 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 30 Dec 2015 17:01:56 +0100
Subject: Minor design modifications

---
 src/client/elm/View/SignIn.elm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/client/elm/View/SignIn.elm')

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 ]
     ]
-- 
cgit v1.2.3