71 lines
962 B
Elm
71 lines
962 B
Elm
module Pages.Switches exposing (Model, Msg, page)
|
|
|
|
import Element exposing (..)
|
|
import Generated.Params as Params
|
|
import Global
|
|
import Mi
|
|
import Mi.SwitchData
|
|
import Spa.Page
|
|
import Utils.Spa exposing (Page)
|
|
|
|
|
|
page : Page Params.Switches Model Msg model msg appMsg
|
|
page =
|
|
Spa.Page.component
|
|
{ title = always "Switches"
|
|
, init = always init
|
|
, update = always update
|
|
, subscriptions = always subscriptions
|
|
, view = always view
|
|
}
|
|
|
|
|
|
|
|
-- INIT
|
|
|
|
|
|
type alias Model =
|
|
{}
|
|
|
|
|
|
init : Params.Switches -> ( Model, Cmd Msg, Cmd Global.Msg )
|
|
init _ =
|
|
( {}
|
|
, Cmd.none
|
|
, Cmd.none
|
|
)
|
|
|
|
|
|
|
|
-- UPDATE
|
|
|
|
|
|
type Msg
|
|
= Msg
|
|
|
|
|
|
update : Msg -> Model -> ( Model, Cmd Msg, Cmd Global.Msg )
|
|
update msg model =
|
|
( model
|
|
, Cmd.none
|
|
, Cmd.none
|
|
)
|
|
|
|
|
|
|
|
-- SUBSCRIPTIONS
|
|
|
|
|
|
subscriptions : Model -> Sub Msg
|
|
subscriptions model =
|
|
Sub.none
|
|
|
|
|
|
|
|
-- VIEW
|
|
|
|
|
|
view : Model -> Element Msg
|
|
view model =
|
|
text "Switches"
|