lucienne-0.0.1: Lucienne/View/DeleteFeed.hs

module Lucienne.View.DeleteFeed
       (deleteFeed)
where
       
import qualified Text.Blaze.Html4.Strict as H
import           Lucienne.View.AreYouSure (areYouSure)
import           Lucienne.Model.Feed (Feed)
import qualified Lucienne.Model.Feed as F
import           Lucienne.View.Link (toDoDeleteFeed)

deleteFeed :: Feed -> H.Html
deleteFeed feed =
  areYouSure "Delete feed" 
    ("Do you really want to delete the feed '" ++ (F.title feed) ++ "'?")
    (toDoDeleteFeed feed)