@@ -1,14 +1,29 @@
11module NotFound exposing (main)
22
33
4+import Browser
45import Html exposing (..)
56import Html.Attributes exposing (..)
67
78
89
9−main : Html msg
10+main : Program () () ()
1011main =
11− div [ class "not-found" ]
12− [ div [ style "font-size" "12em" ] [ text "404" ]
13− , div [ style "font-size" "3em" ] [ text "Page not found" ]
14− ]
12+ Browser.fullscreen
13+ { init = \_ -> ((), Cmd.none)
14+ , update = \_ _ -> ((), Cmd.none)
15+ , subscriptions = \_ -> Sub.none
16+ , onNavigation = Nothing
17+ , view = \_ -> page
18+ }
19+
20+
21+page =
22+ { title = "Page not found"
23+ , body =
24+ [ div [ class "not-found" ]
25+ [ div [ style "font-size" "12em" ] [ text "404" ]
26+ , div [ style "font-size" "3em" ] [ text "Page not found" ]
27+ ]
28+ ]
29+ }