🩹 Fix routing to maintain compatibility with old URLs

ccamel · Jul 22, 2024 · 099d95f · 099d95f
1 parent f313159
commit 099d95f
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/App/Routing.elm b/src/App/Routing.elm
@@ -12,7 +12,7 @@ import Page.Physics
 import Page.SoundWaveToggle
 import Page.Term
 import Url exposing (Url)
-import Url.Parser exposing (Parser, fragment, map, parse)
+import Url.Parser exposing (Parser, fragment, map, oneOf, parse, s)
 
 
 type Route
@@ -23,7 +23,10 @@ type Route
 
 matchRoute : Parser (Route -> a) a
 matchRoute =
-    map parseFragment (fragment identity)
+    oneOf
+        [ fragment parseFragment
+        , map Home (s "index.html") -- maintain compatibility with old urls
+        ]
 
 
 parseFragment : Maybe String -> Route