Inline let binding and rename param.

src/Pages/Internal/Platform/Cli.elm

@@ -862,21 +862,14 @@ staticResponseForPage :
                     }
                 )
             )
-staticResponseForPage siteMetadata viewFn =
+staticResponseForPage staticRoutes viewFn =
-    -- TODO need all Routes here, and their page paths
+    staticRoutes
-    -- need to start with hardcoding the static URLs
-    -- eventually, getStaticPaths equivalent
-    siteMetadata
         |> List.map
             (\( pagePath, route ) ->
-                let
+                Ok
-                    thing =
+                    ( pagePath
-                        viewFn []
+                    , viewFn [] { path = pagePath, frontmatter = route }
-                            { path = pagePath
+                    )
-                            , frontmatter = route
-                            }
-                in
-                Ok ( pagePath, thing )
             )
         |> combine