Fix review errors.

review/src/ReviewConfig.elm

@@ -87,9 +87,6 @@ config =
                                 , "src/Pages/Http.elm" -- reports incorrect unused custom type constructor
                                 , "src/DataSource/ServerRequest.elm" -- temporarily removed from exposed modules for alpha serverless
                                 ]
-                            |> Rule.ignoreErrorsForDirectories
-                                [ "src/ElmHtml"
-                                ]
                     )
            )
     )
@@ -98,6 +95,7 @@ config =
                 rule
                     |> Rule.ignoreErrorsForDirectories
                         [ "src/ElmHtml"
+                        , "src/Test"
                         ]
             )
 

src/HtmlPrinter.elm

@@ -1,7 +1,6 @@
 module HtmlPrinter exposing (htmlToString)
 
 import Html exposing (Html)
-import Html.Events
 import Json.Decode as Decode
 import Json.Encode
 import Test.Html.Internal.ElmHtml.InternalTypes exposing (decodeElmHtml)

src/Pages/Internal/Platform/Cli.elm

@@ -91,6 +91,7 @@ cliApplication config =
         site =
             getSiteConfig config
 
+        getSiteConfig : ProgramConfig userMsg userModel (Maybe route) siteData pageData sharedData -> SiteConfig siteData
         getSiteConfig fullConfig =
             case fullConfig.site of
                 Just mySite ->

tests/StaticHttpRequestsTests.elm

@@ -20,6 +20,7 @@ import Pages.Internal.Platform.ToJsPayload as ToJsPayload
 import Pages.Internal.StaticHttpBody as StaticHttpBody
 import Pages.Manifest as Manifest
 import Pages.ProgramConfig exposing (ProgramConfig)
+import Pages.SiteConfig exposing (SiteConfig)
 import Pages.StaticHttp.Request as Request
 import Path
 import ProgramTest exposing (ProgramTest)
@@ -1124,6 +1125,7 @@ startLowLevel apiRoutes staticHttpCache pages =
         |> ProgramTest.start (flags (Encode.encode 0 encodedFlags))
 
 
+site : SiteConfig ()
 site =
     { data = DataSource.succeed ()
     , canonicalUrl = "canonical-site-url"