Fix types in slides example.

examples/slides/src/Shared.elm

@@ -6,7 +6,7 @@ import DataSource
 import Html exposing (Html)
 import Html.Styled
 import Pages.Flags
-import Pages.PagePath exposing (PagePath)
+import Path exposing (Path)
 import SharedTemplate exposing (SharedTemplate)
 import Tailwind.Utilities
 import View exposing (View)
@@ -26,7 +26,7 @@ template =
 
 type Msg
     = OnPageChange
-        { path : PagePath
+        { path : Path
         , query : Maybe String
         , fragment : Maybe String
         }
@@ -52,7 +52,7 @@ init :
     ->
         Maybe
             { path :
-                { path : PagePath
+                { path : Path
                 , query : Maybe String
                 , fragment : Maybe String
                 }
@@ -75,7 +75,7 @@ update msg model =
             ( model, Cmd.none )
 
 
-subscriptions : PagePath -> Model -> Sub Msg
+subscriptions : Path -> Model -> Sub Msg
 subscriptions _ _ =
     Sub.none
 
@@ -88,12 +88,12 @@ data =
 view :
     Data
     ->
-        { path : PagePath
+        { path : Path
         , frontmatter : route
         }
     -> Model
     -> (Msg -> msg)
-    -> View Msg
+    -> View msg
     -> { body : Html msg, title : String }
 view stars page model toMsg pageView =
     { body =

examples/slides/src/Site.elm

@@ -1,13 +1,11 @@
 module Site exposing (config)
 
 import Cloudinary
-import Color
 import DataSource
 import Head
 import MimeType
-import Pages.ImagePath as ImagePath exposing (ImagePath)
+import Pages.ImagePath exposing (ImagePath)
 import Pages.Manifest as Manifest
-import Pages.Manifest.Category
 import Route exposing (Route)
 import SiteConfig exposing (SiteConfig)
 import Sitemap
@@ -104,7 +102,7 @@ siteMap allRoutes =
         |> List.filterMap identity
         |> List.map
             (\route ->
-                { path = Route.routeToPath (Just route) |> String.join "/"
+                { path = Route.routeToPath route |> String.join "/"
                 , lastMod = Nothing
                 }
             )