Add part7

part7/src/Data/Profile.elm

@@ -0,0 +1,23 @@
+module Data.Profile exposing (Profile, decoder)
+
+import Data.User as User exposing (Username)
+import Data.UserPhoto as UserPhoto exposing (UserPhoto)
+import Json.Decode as Decode exposing (Decoder)
+import Json.Decode.Pipeline exposing (decode, required)
+
+
+type alias Profile =
+    { username : Username
+    , bio : Maybe String
+    , image : UserPhoto
+    , following : Bool
+    }
+
+
+decoder : Decoder Profile
+decoder =
+    decode Profile
+        |> required "username" User.usernameDecoder
+        |> required "bio" (Decode.nullable Decode.string)
+        |> required "image" UserPhoto.decoder
+        |> required "following" Decode.bool