aux-search/src/Page/Home.elm

41 lines
433 B
Elm
Raw Normal View History

module Page.Home exposing (Model, Msg, init, update, view)
2020-06-19 06:53:49 +00:00
import Html exposing (Html, div, text)
-- MODEL
2020-06-19 06:53:49 +00:00
type alias Model =
()
2020-06-19 06:53:49 +00:00
init : ( Model, Cmd Msg )
init =
2020-06-19 06:53:49 +00:00
( (), Cmd.none )
-- UPDATE
2020-06-19 06:53:49 +00:00
type Msg
= NoOp
update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
2020-07-24 21:01:16 +00:00
case msg of
NoOp ->
( model, Cmd.none )
2020-06-19 06:53:49 +00:00
-- VIEW
2020-06-19 06:53:49 +00:00
view : Model -> Html Msg
2020-07-24 21:01:16 +00:00
view _ =
2020-06-19 06:53:49 +00:00
div [] [ text "Home" ]