dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-26 05:13:24 +03:00
Code Issues Packages Projects Releases Wiki Activity

Apply fixes.

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/OptimizedDecoder.elm
View File

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

6
src/Pages/Internal/Platform/Cli.elm
View File

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

2
src/Pages/Internal/Platform/ToJsPayload.elm
View File

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

2
src/TerminalText.elm
View File

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

2
tests/StaticHttpRequestsTests.elm
View File

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