A minimal web player written in Elm, just for fun. The goals was a minimal web-app that can be hosted on my Minio (s3) next to the video content.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

26 lines
554 B

module Main exposing (..)
import Browser
import Msg
import Request
import Model exposing (Model)
import Update
import View
import Flags exposing (Flags)
main : Program Flags Model Msg.Msg
main =
Browser.application
{ init = init
, view = View.view
, update = Update.update
, subscriptions = \_ -> Sub.none
, onUrlChange = \_ -> Msg.NoOp
, onUrlRequest = \_ -> Msg.NoOp
}
init : Flags -> a -> b -> ( Model, Cmd Msg.Msg )
init flags _ _ =
( Model.initialState flags, Request.videoList )