updates for production env

src/Page.elm

@@ -10,7 +10,7 @@ import Page.Dashboard as Home
 import Page.GroupChest as GroupChest
 import Page.Shop as Shop
 import Process
-import Route
+import Route exposing (toHref)
 import Session exposing (Session)
 import Task
 import Wealth
@@ -216,19 +216,19 @@ renderLevel left right =
 
 navLink icon route page =
     let
-        ( link, url ) =
+        linkText =
             case route of
                 Route.Merchant ->
-                    ( "Marchand", "/marchand" )
+                    "Marchand"
 
                 Route.GroupChest ->
-                    ( "Coffre de groupe", "/groupe" )
+                    "Coffre de groupe"
 
                 Route.Home ->
-                    ( "Accueil", "/" )
+                    "Accueil"
 
                 Route.About ->
-                    ( "About", "/" )
+                    "About"
 
         isActive =
             case ( route, page ) of
@@ -247,9 +247,9 @@ navLink icon route page =
                 _ ->
                     False
     in
-    a [ class "navbar-item", classList [ ( "is-active", isActive ) ], href url ]
+    a [ class "navbar-item", classList [ ( "is-active", isActive ) ], href (toHref route) ]
         [ B.icon { icon = icon, ratio = Just "fa-1x", size = Just "is-medium" }
-        , span [] [ text link ]
+        , span [] [ text linkText ]
         ]