Apply fixes.

This commit is contained in:
Dillon Kearns 2021-04-10 10:12:51 -07:00
parent 6812367ab2
commit ca901b043d
5 changed files with 7 additions and 7 deletions

View File

@ -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_)

View File

@ -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

View File

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

View File

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

View File

@ -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 =