Minor design modifications

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 ]
     ]