22 lines
612 B
Haskell
22 lines
612 B
Haskell
module Handler.Workflow.Instance.Edit
|
|
( getGWIEditR, postGWIEditR
|
|
, getSWIEditR, postSWIEditR
|
|
, workflowInstanceEditR
|
|
) where
|
|
|
|
import Import
|
|
|
|
import Utils.Workflow
|
|
|
|
|
|
getGWIEditR, postGWIEditR :: WorkflowInstanceName -> Handler Html
|
|
getGWIEditR = postGWIEditR
|
|
postGWIEditR = workflowInstanceEditR WSGlobal
|
|
|
|
getSWIEditR, postSWIEditR :: SchoolId -> WorkflowInstanceName -> Handler Html
|
|
getSWIEditR = postSWIEditR
|
|
postSWIEditR ssh = workflowInstanceEditR $ WSSchool ssh
|
|
|
|
workflowInstanceEditR :: RouteWorkflowScope -> WorkflowInstanceName -> Handler Html
|
|
workflowInstanceEditR = error "not implemented"
|