Add lamassu-admin-elm to this repo (#185)

lamassu-admin-elm/src/MaintenanceFunding/State.elm

@@ -0,0 +1,35 @@
+module MaintenanceFunding.State exposing (..)
+
+import MaintenanceFunding.Rest exposing (..)
+import MaintenanceFunding.Types exposing (..)
+import RemoteData exposing (..)
+
+
+init : Model
+init =
+    NotAsked
+
+
+load : Maybe String -> ( Model, Cmd Msg )
+load maybeCrypto =
+    ( Loading, getForm maybeCrypto )
+
+
+fundingUpdate : SubModel -> ( SubModel, Cmd Msg )
+fundingUpdate model =
+    model ! []
+
+
+switchCrypto : String -> Model -> ( Model, Cmd Msg )
+switchCrypto crypto model =
+    ( Loading, getForm (Just crypto) )
+
+
+update : Msg -> Model -> ( Model, Cmd Msg )
+update msg model =
+    case msg of
+        Load newModel ->
+            RemoteData.update fundingUpdate newModel
+
+        CryptoSwitch crypto ->
+            switchCrypto crypto model