Add search on payments and use inline font awesome from elm

1 files changed, 7 insertions, 3 deletions

diff --git a/src/client/elm/LoggedIn/Home/AddPayment/View.elm b/src/client/elm/LoggedIn/Home/AddPayment/View.elm
index d97f3ca..b13097b 100644
--- a/src/client/elm/LoggedIn/Home/AddPayment/View.elm
+++ b/src/client/elm/LoggedIn/Home/AddPayment/View.elm
@@ -4,6 +4,9 @@ module LoggedIn.Home.AddPayment.View exposing
 
 import Result exposing (..)
 import Json.Decode as Json
+import Color
+
+import FontAwesome
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
@@ -24,7 +27,6 @@ import Model.Translations exposing (getMessage)
 import LoggedData exposing (LoggedData)
 
 import View.Events exposing (onSubmitPrevDefault)
-import View.Icon exposing (..)
 
 import Utils.Maybe exposing (isJust)
 import Utils.Either exposing (toMaybeError)
@@ -52,7 +54,9 @@ view loggedData homeModel =
             ]
         ]
         [ text (getMessage "Add" loggedData.translations)
-        , if homeModel.add.waitingServer then renderSpinIcon else text ""
+        , if homeModel.add.waitingServer
+            then FontAwesome.spinner Color.white 20
+            else text ""
         ]
     ]
 
@@ -73,7 +77,7 @@ addPaymentName loggedData addPayment =
         []
     , label
         [ for "nameInput" ]
-        [ renderIcon "shopping-cart" ]
+        [ FontAwesome.shopping_cart Color.white 20 ]
     , case addPayment.nameError of
         Just error ->
           div [ class "errorMessage" ] [ text error ]