diff options
Diffstat (limited to 'src/client/elm')
-rw-r--r-- | src/client/elm/Model/View/LoggedIn/Add.elm | 2 | ||||
-rw-r--r-- | src/client/elm/View/Header.elm | 12 | ||||
-rw-r--r-- | src/client/elm/View/SignIn.elm | 10 |
3 files changed, 13 insertions, 11 deletions
diff --git a/src/client/elm/Model/View/LoggedIn/Add.elm b/src/client/elm/Model/View/LoggedIn/Add.elm index 5598084..c25c640 100644 --- a/src/client/elm/Model/View/LoggedIn/Add.elm +++ b/src/client/elm/Model/View/LoggedIn/Add.elm @@ -38,6 +38,6 @@ validateCost : String -> Translations -> Result String Int validateCost cost translations = cost |> validateNonEmpty (getMessage "CostRequired" translations) - |> flip Result.andThen (validateNumber (getMessage "CostMustBeNonNullNumber" translations) ((/=) 0)) + |> flip Result.andThen (validateNumber (getMessage "CostRequired" translations) ((/=) 0)) type Frequency = Punctual | Monthly 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 ] ] |