27 lines
423 B
Elm
27 lines
423 B
Elm
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 ! []
|