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

Use local URLs etc

Browse Source
This commit is contained in:
Richard Feldman
2018-08-05 06:17:34 -04:00
parent f6bd524cb6
commit 6a3879b1c7
4 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
advanced/part1/src/Author.elm
View File

@@ -208,7 +208,7 @@ decoder : Maybe Cred -> Decoder Author
decoder maybeCred =
Decode.succeed Tuple.pair
|> custom Profile.decoder
|> required "uname" Username.decoder
|> required "username" Username.decoder
|> Decode.andThen (decodeFromPair maybeCred)
@@ -216,7 +216,8 @@ decodeFromPair : Maybe Cred -> ( Profile, Username ) -> Decoder Author
decodeFromPair maybeCred ( prof, uname ) =
case maybeCred of
Nothing ->
nonViewerDecoder prof uname
-- If you're logged out, you can't be following anyone!
Decode.succeed (IsNotFollowing (UnfollowedAuthor uname prof))
Just cred ->
if uname == Cred.username cred then