fix: Try avoiding elm~pages base option bug. Bug is here: dillonkearn…

…s/elm-pages#404
hahnah · Jan 20, 2025 · 7fac692 · 7fac692
1 parent 075d20a
commit 7fac692
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/src/Layout.elm b/src/Layout.elm
@@ -73,6 +73,7 @@ viewMainMenuItem : { label : String, route : Route } -> Html msg
 viewMainMenuItem { label, route } =
     Route.link
         [ Attrs.class "hidden sm:block font-medium text-gray-900 dark:text-gray-100 hover:underline decoration-primary-500"
+        , Attrs.href (Settings.appendToBasePath (Route.toString route))
         ]
         [ Html.text label ]
         route

diff --git a/src/Settings.elm b/src/Settings.elm
@@ -1,5 +1,6 @@
 module Settings exposing
-    ( author
+    ( appendToBasePath
+    , author
     , basePath
     , canonicalUrl
     , domain
@@ -22,6 +23,11 @@ basePath =
     "/try-elm-pages-2"
 
 
+appendToBasePath : String -> String
+appendToBasePath path =
+    basePath ++ path
+
+
 canonicalUrl : String
 canonicalUrl =
     "https://" ++ domain ++ basePath