Swap part6 and part7

advanced/part6/src/Author.elm

@@ -206,17 +206,14 @@ toggleFollowButton txt extraClasses msgWhenClicked uname =
 
 decoder : Maybe Cred -> Decoder Author
 decoder maybeCred =
-    {- 👉 TODO: Use this `Profile` and `Username` to decode an `Author`!
+    Decode.succeed Tuple.pair
-
-       💡 HINT: `decoderHelp` will help here, but slightly altering its type may make things easier...
-    -}
-    Decode.succeed "..."
         |> custom Profile.decoder
         |> required "username" Username.decoder
+        |> Decode.andThen (decodeFromPair maybeCred)
 
 
-decoderHelp : Maybe Cred -> Profile -> Username -> Decoder Author
+decodeFromPair : Maybe Cred -> ( Profile, Username ) -> Decoder Author
-decoderHelp maybeCred prof uname =
+decodeFromPair maybeCred ( prof, uname ) =
     case maybeCred of
         Nothing ->
             -- If you're logged out, you can't be following anyone!

advanced/part6/src/Timestamp.elm

@@ -24,17 +24,18 @@ view timeZone timestamp =
 -}
 iso8601Decoder : Decoder Time.Posix
 iso8601Decoder =
-    {- 👉 TODO: Use the following function to decode this Time.Posix value:
+    Decode.string
+        |> Decode.andThen fromString
 
 
-       Iso8601.toTime : String -> Result (List DeadEnd) Time.Posix
+fromString : String -> Decoder Time.Posix
+fromString str =
+    case Iso8601.toTime str of
+        Ok successValue ->
+            succeed successValue
 
-
+        Err _ ->
-       ❕ NOTE: You can disregard the (List DeadEnd) here. No need to use it to complete this exercise!
+            fail ("Invalid date: " ++ str)
-
-       💡 HINT: Decode.andThen will be useful here.
-    -}
-    "..."
 
 
 

advanced/part7/src/Author.elm

@@ -206,14 +206,17 @@ toggleFollowButton txt extraClasses msgWhenClicked uname =
 
 decoder : Maybe Cred -> Decoder Author
 decoder maybeCred =
-    Decode.succeed Tuple.pair
+    {- 👉 TODO: Use this `Profile` and `Username` to decode an `Author`!
+
+       💡 HINT: `decoderHelp` will help here, but slightly altering its type may make things easier...
+    -}
+    Decode.succeed "..."
         |> custom Profile.decoder
         |> required "username" Username.decoder
-        |> Decode.andThen (decodeFromPair maybeCred)
 
 
-decodeFromPair : Maybe Cred -> ( Profile, Username ) -> Decoder Author
+decoderHelp : Maybe Cred -> Profile -> Username -> Decoder Author
-decodeFromPair maybeCred ( prof, uname ) =
+decoderHelp maybeCred prof uname =
     case maybeCred of
         Nothing ->
             -- If you're logged out, you can't be following anyone!

advanced/part7/src/Timestamp.elm

@@ -24,18 +24,17 @@ view timeZone timestamp =
 -}
 iso8601Decoder : Decoder Time.Posix
 iso8601Decoder =
-    Decode.string
+    {- 👉 TODO: Use the following function to decode this Time.Posix value:
-        |> Decode.andThen fromString
 
 
-fromString : String -> Decoder Time.Posix
+       Iso8601.toTime : String -> Result (List DeadEnd) Time.Posix
-fromString str =
-    case Iso8601.toTime str of
-        Ok successValue ->
-            succeed successValue
 
-        Err _ ->
+
-            fail ("Invalid date: " ++ str)
+       ❕ NOTE: You can disregard the (List DeadEnd) here. No need to use it to complete this exercise!
+
+       💡 HINT: Decode.andThen will be useful here.
+    -}
+    "..."