68 lines
930 B
Elm
68 lines
930 B
Elm
|
module Pages.Switches exposing (Model, Msg, page)
|
||
|
|
|
||
|
|
import Spa.Page
|
||
|
|
import Element exposing (..)
|
||
|
|
import Generated.Params as Params
|
||
|
|
import Global
|
||
|
|
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"
|