dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2025-01-04 09:56:44 +03:00
Code Issues Packages Projects Releases Wiki Activity

Format some type annotations on multiple lines.

Browse Source
This commit is contained in:
Dillon Kearns 2020-06-13 06:53:27 -07:00
parent 79d4d6bdcc
commit dfa44e7b02
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Pages/Internal/Platform/StaticResponses.elm
View File

@ -200,7 +200,12 @@ staticResponsesUpdate newEntry model =
}
addEntry : Dict String (Maybe String) -> String -> Result () String -> StaticHttpResult -> StaticHttpResult
addEntry :
Dict String (Maybe String)
-> String
-> Result () String
-> StaticHttpResult
-> StaticHttpResult
addEntry globalRawResponses hashedRequest rawResponse ((NotFetched request rawResponses) as entry) =
let
realUrls =
@ -550,7 +555,11 @@ sendStaticResponsesIfDone config siteMetadata mode secrets allRawResponses error
)
performStaticHttpRequests : Dict String (Maybe String) -> SecretsDict -> List ( String, StaticHttp.Request a ) -> Result (List BuildError) (List { unmasked : RequestDetails, masked : RequestDetails })
performStaticHttpRequests :
Dict String (Maybe String)
-> SecretsDict
-> List ( String, StaticHttp.Request a )
-> Result (List BuildError) (List { unmasked : RequestDetails, masked : RequestDetails })
performStaticHttpRequests allRawResponses secrets staticRequests =
staticRequests
|> List.map