Add search on payments and use inline font awesome from elm

1 files changed, 6 insertions, 3 deletions

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