24 lines
404 B
Elm
24 lines
404 B
Elm
module Core exposing (Model(..), Msg(..), init)
|
|
|
|
import Browser.Navigation
|
|
import Json.Decode as Decode
|
|
import Task
|
|
import Twitch
|
|
import Url
|
|
|
|
|
|
type Model
|
|
= Home
|
|
|
|
|
|
type Msg
|
|
= Noop
|
|
| ReceivedPlaylists (List Twitch.Playlist)
|
|
|
|
|
|
init : Decode.Value -> Url.Url -> Browser.Navigation.Key -> ( Model, Cmd Msg )
|
|
init _ _ _ =
|
|
( Home
|
|
, Task.perform ReceivedPlaylists Twitch.fetchPlaylists
|
|
)
|