From 9dfa7a7e2c6fac564a456b11623c04d0b26fbce5 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 4 Jun 2016 10:04:05 +0200 Subject: Add search on payments and use inline font awesome from elm --- src/client/elm/SignIn/View.elm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/client/elm/SignIn/View.elm') diff --git a/src/client/elm/SignIn/View.elm b/src/client/elm/SignIn/View.elm index 2cec586..7ee4ecd 100644 --- a/src/client/elm/SignIn/View.elm +++ b/src/client/elm/SignIn/View.elm @@ -2,10 +2,14 @@ module SignIn.View exposing ( view ) +import Json.Decode as Json +import Color + +import FontAwesome + import Html as H exposing (..) import Html.Attributes exposing (..) import Html.Events exposing (..) -import Json.Decode as Json import SignIn.Msg as SignInMsg import SignIn.Model as SignInModel @@ -17,7 +21,6 @@ import Msg exposing (..) import Model.Translations exposing (getMessage) import View.Events exposing (onSubmitPrevDefault) -import View.Icon exposing (renderSpinIcon) view : Model -> SignInModel.Model -> Html Msg view model signInModel = @@ -34,7 +37,7 @@ view model signInModel = , button [] [ if signInModel.waitingServer - then renderSpinIcon + then FontAwesome.spinner Color.white 20 else text (getMessage "SignIn" model.translations) ] ] -- cgit v1.2.3