dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-12-01 07:45:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Use andThen in external data example.

Browse Source
This commit is contained in:
Dillon Kearns 2019-11-01 16:10:45 -07:00
parent fa21290ddb
commit 994fcd1188
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
examples/external-data/src/Main.elm
View File

@ -156,16 +156,20 @@ view :
view siteMetadata page =
case page.frontmatter of
() ->
StaticHttp.map2
(\elmCompanies starCount ->
StaticHttp.map3
(\elmCompanies forks starCount ->
{ view =
\model viewForPage ->
{ title = "Landing Page"
, body =
(header starCount
:: (elmCompanies
|> List.map companyView
)
:: [ forks
|> List.map (\forkName -> Element.row [] [ Element.text forkName ])
|> Element.column [ Element.spacing 15, Element.centerX, Element.padding 20 ]
]
-- (elmCompanies
-- |> List.map companyView
-- )
)
|> Element.column [ Element.width Element.fill ]
|> layout
@ -174,6 +178,13 @@ view siteMetadata page =
}
)
airtableRequest
(StaticHttp.jsonRequest "https://api.github.com/repos/dillonkearns/elm-pages"
(Decode.field "forks_url" Decode.string)
|> StaticHttp.andThen
(\forksUrl ->
StaticHttp.jsonRequest forksUrl (Decode.list (Decode.field "full_name" Decode.string))
)
)
(StaticHttp.jsonRequest "https://api.github.com/repos/dillonkearns/elm-pages"
(Decode.field "stargazers_count" Decode.int)
)