dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2025-01-08 07:29:08 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add doc comment.

Browse Source
This commit is contained in:
Dillon Kearns 2020-01-06 09:16:29 -08:00
parent 178ef8fdd9
commit 92a67363c2
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/docs/src/RssFeed.elm
View File

@ -1,5 +1,9 @@
module RssFeed exposing (Item, generate) module RssFeed exposing (Item, generate)
{-| Build a feed following the RSS 2.0 format <https://validator.w3.org/feed/docs/rss2.html>.
<http://www.rssboard.org/rss-specification>
-}
import Date exposing (Date) import Date exposing (Date)
import Dict import Dict
import Imf.DateTime import Imf.DateTime
@ -51,6 +55,8 @@ generate feed =
, [ [ keyValue "title" feed.title , [ [ keyValue "title" feed.title
, keyValue "description" feed.description , keyValue "description" feed.description
, keyValue "link" feed.url , keyValue "link" feed.url
--<atom:link href="http://dallas.example.com/rss.xml" rel="self" type="application/rss+xml" />
, keyValue "lastBuildDate" <| Imf.DateTime.fromPosix Time.utc feed.lastBuildTime , keyValue "lastBuildDate" <| Imf.DateTime.fromPosix Time.utc feed.lastBuildTime
] ]
, [ feed.generator |> Maybe.map (keyValue "generator") ] |> List.filterMap identity , [ feed.generator |> Maybe.map (keyValue "generator") ] |> List.filterMap identity