Add lamassu-admin-elm to this repo (#185)
This commit is contained in:
parent
5ee7e40872
commit
f4fc9d6328
134 changed files with 28171 additions and 83 deletions
27
lamassu-admin-elm/src/Customers/State.elm
Normal file
27
lamassu-admin-elm/src/Customers/State.elm
Normal file
|
|
@ -0,0 +1,27 @@
|
|||
module Customers.State exposing (..)
|
||||
|
||||
import RemoteData exposing (..)
|
||||
import Customers.Rest exposing (..)
|
||||
import Customers.Types exposing (..)
|
||||
|
||||
|
||||
init : Model
|
||||
init =
|
||||
NotAsked
|
||||
|
||||
|
||||
loadCmd : Cmd Msg
|
||||
loadCmd =
|
||||
getCustomers
|
||||
|
||||
|
||||
load : ( Model, Cmd Msg )
|
||||
load =
|
||||
( Loading, loadCmd )
|
||||
|
||||
|
||||
update : Msg -> Model -> ( Model, Cmd Msg )
|
||||
update msg model =
|
||||
case msg of
|
||||
Load loadedModel ->
|
||||
loadedModel ! []
|
||||
Loading…
Add table
Add a link
Reference in a new issue