module Feed where

makeFeed :: [Text] -> [(Post, PostRef)] -> Feed
makeFeed authors posts = Feed
  { feedId = ""
  , feedTitle = TextString "Baruk Khazâd!"
  , feedUpdated = lastUpdated
  , feedAuthors = people
  , feedCategories = []
  , feedContributors = []
  , feedGenerator = Nothing
  , feedIcon = Nothing
  , feedLinks = []
  , feedLogo = Nothing
  , feedRights = Nothing
  , feedSubtitle = Just "The Galois Dwarf Fortress Succession Blog"
  , feedEntries = map toFeedItem posts
  , feedAttrs = []
  , feedOther = []
  } where
      people      = map toPerson authors
      toPerson a  = Person a Nothing Nothing []
      lastUpdated = ()

toFeedItem :: (Post, PostRef) -> Entry
toFeedItem = undefined