39 lines
516 B
Elm
39 lines
516 B
Elm
module Pages.NotFound exposing (Model, Msg, Params, page)
|
|
|
|
import Html exposing (..)
|
|
import Spa.Document exposing (Document)
|
|
import Spa.Page as Page exposing (Page)
|
|
import Spa.Url exposing (Url)
|
|
|
|
|
|
type alias Params =
|
|
()
|
|
|
|
|
|
type alias Model =
|
|
Url Params
|
|
|
|
|
|
type alias Msg =
|
|
Never
|
|
|
|
|
|
page : Page Params Model Msg
|
|
page =
|
|
Page.static
|
|
{ view = view
|
|
}
|
|
|
|
|
|
|
|
-- VIEW
|
|
|
|
|
|
view : Url Params -> Document Msg
|
|
view { params } =
|
|
{ title = "404"
|
|
, body =
|
|
[ text "Not found"
|
|
]
|
|
}
|