Swap part1 and part2

2018-08-13 05:04:35 -04:00
parent 353623f108
commit 493b5681d4
16 changed files with 156 additions and 156 deletions
--- a/advanced/part2/src/Author.elm
+++ b/advanced/part2/src/Author.elm
@@ -95,7 +95,7 @@ username : Author -> Username
 username author =
    case author of
        IsViewer cred _ ->
-            cred.username
+            Cred.username cred

        IsFollowing (FollowedAuthor val _) ->
            val
@@ -220,7 +220,7 @@ decodeFromPair maybeCred ( prof, uname ) =
            Decode.succeed (IsNotFollowing (UnfollowedAuthor uname prof))

        Just cred ->
-            if uname == cred.username then
+            if uname == Cred.username cred then
                Decode.succeed (IsViewer cred prof)

            else