cerchez07/elm-0.19-workshop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Solution for advanced/part2

Browse Source
This commit is contained in:
Richard Feldman
2018-08-14 02:52:56 -04:00
parent 9edc567a13
commit 90db6e81b0
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
advanced/part2/src/Article.elm
View File

@@ -159,8 +159,8 @@ slug (Article internals _) =
body : Article Full -> Body body : Article Full -> Body
body _ = body (Article _ (Full bod)) =
"👉 TODO make this return the article's body" bod
@@ -181,8 +181,8 @@ mapAuthor transform (Article info extras) =
fromPreview : Body -> Article Preview -> Article Full fromPreview : Body -> Article Preview -> Article Full
fromPreview _ _ = fromPreview bod (Article info _) =
"👉 TODO convert from an Article Preview to an Article Full" Article info (Full bod)
@@ -200,7 +200,7 @@ fullDecoder : Maybe Cred -> Decoder (Article Full)
fullDecoder maybeCred = fullDecoder maybeCred =
Decode.succeed Article Decode.succeed Article
|> custom (internalsDecoder maybeCred) |> custom (internalsDecoder maybeCred)
|> required "body" "👉 TODO use `Body.decoder` (which is a `Decoder Body`) to decode the body into this Article Full" |> required "body" (Decode.map Full Body.decoder)
internalsDecoder : Maybe Cred -> Decoder Internals internalsDecoder : Maybe Cred -> Decoder Internals