Update part4 and part5

This commit is contained in:
Richard Feldman
2018-05-05 05:36:30 -04:00
parent 4ad5a6d7c9
commit e6ec9a6584
359 changed files with 161 additions and 44513 deletions

View File

@@ -3,7 +3,7 @@ module Data.Article.Author exposing (Author, 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 (custom, decode, required)
import Json.Decode.Pipeline exposing (custom, decode, optional, required)
decoder : Decoder Author
@@ -12,7 +12,7 @@ decoder =
|> required "username" User.usernameDecoder
|> required "bio" (Decode.nullable Decode.string)
|> required "image" UserPhoto.decoder
|> required "following" Decode.bool
|> optional "following" Decode.bool False
type alias Author =