lucienne-0.0.1: Lucienne/View/DeleteUser.hs

module Lucienne.View.DeleteUser
       (deleteUser)
where
  
import qualified Text.Blaze.Html4.Strict as H
import qualified Lucienne.Model.User as U
import           Lucienne.Model.User (User)
import           Lucienne.View.AreYouSure (areYouSure)
import           Lucienne.View.Link (to)
import           Lucienne.Url (doDeleteUser)

deleteUser :: User -> H.Html
deleteUser user =
  areYouSure "Delete User"
  ("Are you sure you want to delete user '" ++ U.name user ++ "'?")
  (to doDeleteUser)