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

This commit is contained in:
Rafael Taranto 2018-10-08 16:29:06 -03:00 committed by Josh Harvey
parent 5ee7e40872
commit f4fc9d6328
134 changed files with 28171 additions and 83 deletions

View 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 ! []