24 lines
730 B
Haskell
24 lines
730 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 win
|
|
= workflowInstanceEditR <=< runDB . getKeyBy404 $ UniqueWorkflowInstance win WSGlobal
|
|
|
|
getSWIEditR, postSWIEditR :: SchoolId -> WorkflowInstanceName -> Handler Html
|
|
getSWIEditR = postSWIEditR
|
|
postSWIEditR ssh win
|
|
= workflowInstanceEditR <=< runDB . getKeyBy404 . UniqueWorkflowInstance win . view _DBWorkflowScope $ WSSchool ssh
|
|
|
|
workflowInstanceEditR :: WorkflowInstanceId -> Handler Html
|
|
workflowInstanceEditR = error "not implemented"
|