lucienne-0.0.1: Lucienne/Controller/DeleteUser.hs

module Lucienne.Controller.DeleteUser
       (deleteUser, doDeleteUser)
where
  
import           Lucienne.Controller.Imports
import qualified Lucienne.View.DeleteUser as View
import qualified Lucienne.Database as DB

deleteUser :: User -> Controller Response
deleteUser = ok . toResponse . View.deleteUser

doDeleteUser :: User -> Controller Response
doDeleteUser user = do
  lift $ DB.deleteUser user
  seeHome