Apply fixes.

src/OptimizedDecoder.elm

@@ -489,7 +489,7 @@ optionalField fieldName decoder_ =
     let
         finishDecoding json =
             case decodeValue (field fieldName value) json of
-                Ok val ->
+                Ok _ ->
                     -- The field is present, so run the decoder on it.
                     map Just (field fieldName decoder_)
 

src/Pages/Internal/Platform/Cli.elm

@@ -75,7 +75,7 @@ type alias Config pathKey userMsg userModel route siteStaticData =
             }
         -> ( userModel, Cmd userMsg )
     , getStaticRoutes : StaticHttp.Request (List route)
-    , urlToRoute : Url.Url -> route
+    , urlToRoute : Url -> route
     , routeToPath : route -> List String
     , site : SiteConfig siteStaticData pathKey
     , update : userMsg -> userModel -> ( userModel, Cmd userMsg )
@@ -461,7 +461,7 @@ optionalField fieldName decoder =
     let
         finishDecoding json =
             case Decode.decodeValue (Decode.field fieldName Decode.value) json of
-                Ok val ->
+                Ok _ ->
                     -- The field is present, so run the decoder on it.
                     Decode.map Just (Decode.field fieldName decoder)
 
@@ -901,7 +901,7 @@ sendSinglePageProgress toJsPayload config _ model =
                 , head = success.head
                 , title = viewValue.title
                 , body = "" --lookedUp.unparsedBody
-                , staticHttpCache = model.allRawResponses |> Dict.Extra.filterMap (\k v -> v)
+                , staticHttpCache = model.allRawResponses |> Dict.Extra.filterMap (\_ v -> v)
                 }
                     |> sendProgress
 

src/Pages/Internal/Platform/ToJsPayload.elm

@@ -91,7 +91,7 @@ toJsCodec canonicalSiteUrl =
 
 errorCodec : Codec (List BuildError)
 errorCodec =
-    Codec.object (\thing1 thing2 -> [])
+    Codec.object (\_ _ -> [])
         |> Codec.field "errorString"
             identity
             (Codec.string

src/TerminalText.elm

@@ -138,5 +138,5 @@ getString node =
         RawText string ->
             string
 
-        Style color innerNode ->
+        Style _ innerNode ->
             getString innerNode

tests/StaticHttpRequestsTests.elm

@@ -844,7 +844,7 @@ startLowLevel generateFiles documentBodyResult staticHttpCache pages =
                 { staticData = StaticHttp.succeed ()
                 , canonicalUrl = \_ -> "canonical-site-url"
                 , manifest = \_ -> manifest
-                , head = \staticData -> []
+                , head = \_ -> []
                 , generateFiles = StaticHttp.succeed []
                 }
             , view =