fix(url): replace not found with home page

This commit is contained in:
Ananth Venkatesh 2025-02-28 02:39:38 -05:00
parent 98ba6d23cb
commit 83a9a18f07
Signed by: ananthv
GPG key ID: 4BB578E748CFE4FF
2 changed files with 1250 additions and 1246 deletions

File diff suppressed because it is too large Load diff

View file

@ -487,10 +487,11 @@ itemize multikeys entry =
sitemap : Dict String (Model -> List (Html Msg)) sitemap : Dict String (Model -> List (Html Msg))
sitemap = sitemap =
Dict.fromList Dict.fromList
(itemize ([ "/", "/index.html" ] ++ getPaths "src" ++ getPaths "index" ++ getPaths "home" ++ getPaths "macgregor/www/src") pageHome (itemize ([ "/", "/index.html" ] ++ getPaths "src" ++ getPaths "index" ++ getPaths "home") pageHome
++ itemize (getPaths "entries") pageEntries ++ itemize (getPaths "entries") pageEntries
++ itemize (getPaths "about") pageAbout ++ itemize (getPaths "about") pageAbout
++ itemize (getPaths "colophon") colophon ++ itemize (getPaths "colophon") colophon
++ itemize (getPaths "404") notFound
) )
@ -506,7 +507,7 @@ loadUrl model =
builder model builder model
Nothing -> Nothing ->
notFound model pageHome model
view : Model -> Browser.Document Msg view : Model -> Browser.Document Msg