Show app description on listing pages
Some checks failed
continuous-integration/drone/push Build is failing

Closes #3
This commit is contained in:
3wc
2021-04-25 15:51:39 +02:00
parent 33ddb9e390
commit 31d590c3fe
3 changed files with 30 additions and 25 deletions

View File

@ -40,6 +40,7 @@ type alias App =
, slug : String
, default_branch : String
, website : Maybe String
, description : Maybe String
}
type alias Model =
@ -293,6 +294,7 @@ appDecoder =
|> andMap (Decode.succeed "")
|> andMap (Decode.field "default_branch" Decode.string)
|> andMap (Decode.maybe (Decode.field "website" Decode.string))
|> andMap (Decode.maybe (Decode.field "description" Decode.string))
appListDecoder : Decode.Decoder (List App)