lucienne-0.0.1: Lucienne/View/AreYouSure.hs

module Lucienne.View.AreYouSure
       (areYouSure)
where
  
import           Text.Blaze ((!))
import qualified Text.Blaze.Html4.Strict as H
import qualified Text.Blaze.Html4.Strict.Attributes as A
import           Lucienne.View.Common (template,stringHtml)
import qualified Lucienne.View.Link as L

areYouSure :: String -> String -> (H.Html -> H.Html) -> H.Html
areYouSure caption question link  =
  template caption [] [] $
  H.table $
    do H.tr $ H.td ! A.colspan "2" $ stringHtml question
       H.tr $ do
         H.td $ link     $ stringHtml "Yes"
         H.td $ L.toHome $ stringHtml "No"