diff options
Diffstat (limited to 'src/client/elm/View')
-rw-r--r-- | src/client/elm/View/Header.elm | 12 | ||||
-rw-r--r-- | src/client/elm/View/SignIn.elm | 10 |
2 files changed, 12 insertions, 10 deletions
diff --git a/src/client/elm/View/Header.elm b/src/client/elm/View/Header.elm index 3a6241b..94bdb01 100644 --- a/src/client/elm/View/Header.elm +++ b/src/client/elm/View/Header.elm @@ -22,18 +22,12 @@ renderHeader model = [] [ text (getMessage "SharedCost" model.translations) ] , case model.view of - LoadingView -> - text "" - SignInView _ -> - button - [ class "icon" - , onClick operations.address Persona.SignIn - ] - [ renderIcon "sign-in" ] LoggedInView _ -> button [ class "icon" , onClick operations.address Persona.SignOut ] - [ renderIcon "sign-out" ] + [ renderIcon "power-off" ] + _ -> + text "" ] 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 ] ] |