24 lines
725 B
Haskell
24 lines
725 B
Haskell
module Handler.Workflow.Workflow.Delete
|
|
( getGWWDeleteR, postGWWDeleteR
|
|
, getSWWDeleteR, postSWWDeleteR
|
|
, workflowDeleteR
|
|
) where
|
|
|
|
import Import
|
|
|
|
import Handler.Utils.Workflow.Workflow
|
|
|
|
|
|
getGWWDeleteR, postGWWDeleteR :: CryptoFileNameWorkflowWorkflow -> Handler Html
|
|
getGWWDeleteR = postGWWDeleteR
|
|
postGWWDeleteR cID
|
|
= workflowDeleteR <=< runDB . maybeT notFound $ ensureScope WSGlobal cID
|
|
|
|
getSWWDeleteR, postSWWDeleteR :: SchoolId -> CryptoFileNameWorkflowWorkflow -> Handler Html
|
|
getSWWDeleteR = postSWWDeleteR
|
|
postSWWDeleteR ssh cID
|
|
= workflowDeleteR <=< runDB . maybeT notFound $ ensureScope (WSSchool ssh) cID
|
|
|
|
workflowDeleteR :: WorkflowWorkflowId -> Handler Html
|
|
workflowDeleteR = error "not implemented"
|