Add route builder

driebit · Aug 30, 2018 · 04d04e7 · 04d04e7
1 parent 67cdc3f
commit 04d04e7
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/Route.elm b/src/Route.elm
@@ -4,6 +4,7 @@ import Html exposing (..)
 import Html.Attributes exposing (..)
 import Json.Decode as Decode
 import Url exposing (Url)
+import Url.Builder as Builder
 import Url.Parser exposing ((</>), Parser)
 
 
@@ -53,10 +54,11 @@ toRouteData route =
             RouteData "/" "Home"
 
         Article id ->
-            RouteData ("/page/" ++ String.fromInt id) ("Page " ++ String.fromInt id)
+            RouteData (Builder.absolute [ "page", String.fromInt id ] [])
+                ("Page " ++ String.fromInt id)
 
         NotFound ->
-            RouteData "/404" "Not found"
+            RouteData (Builder.absolute [ "404" ] []) "Not found"
 
 
 toTitle : Route -> String