Rename more stuff

This commit is contained in:
Richard Feldman
2018-08-05 04:48:48 -04:00
parent 9989159375
commit d57dec1681
3473 changed files with 5559 additions and 0 deletions

View File

@@ -0,0 +1,22 @@
module Data.Article.Feed exposing (Feed, decoder)
import Data.Article as Article exposing (Article)
import Json.Decode as Decode exposing (Decoder)
import Json.Decode.Pipeline exposing (decode, required)
type alias Feed =
{ articles : List (Article ())
, articlesCount : Int
}
-- SERIALIZATION --
decoder : Decoder Feed
decoder =
decode Feed
|> required "articles" (Decode.list Article.decoder)
|> required "articlesCount" Decode.int