22 lines
651 B
Haskell
22 lines
651 B
Haskell
module Handler.Workflow.Instance.Delete
|
|
( getGWIDeleteR, postGWIDeleteR
|
|
, getSWIDeleteR, postSWIDeleteR
|
|
, workflowInstanceDeleteR
|
|
) where
|
|
|
|
import Import
|
|
|
|
import Utils.Workflow
|
|
|
|
|
|
getGWIDeleteR, postGWIDeleteR :: WorkflowInstanceName -> Handler Html
|
|
getGWIDeleteR = postGWIDeleteR
|
|
postGWIDeleteR = workflowInstanceDeleteR WSGlobal
|
|
|
|
getSWIDeleteR, postSWIDeleteR :: SchoolId -> WorkflowInstanceName -> Handler Html
|
|
getSWIDeleteR = postSWIDeleteR
|
|
postSWIDeleteR ssh = workflowInstanceDeleteR $ WSSchool ssh
|
|
|
|
workflowInstanceDeleteR :: RouteWorkflowScope -> WorkflowInstanceName -> Handler Html
|
|
workflowInstanceDeleteR = error "not implemented"
|