16 lines
429 B
Haskell
16 lines
429 B
Haskell
module Handler.Workflow.Instance.Edit
|
|
( getGWIEditR, postGWIEditR
|
|
, workflowInstanceEditR
|
|
) where
|
|
|
|
import Import
|
|
|
|
|
|
getGWIEditR, postGWIEditR :: WorkflowInstanceName -> Handler Html
|
|
getGWIEditR = postGWIEditR
|
|
postGWIEditR win
|
|
= workflowInstanceEditR <=< runDB . getKeyBy404 $ UniqueWorkflowInstance win WSGlobal
|
|
|
|
workflowInstanceEditR :: WorkflowInstanceId -> Handler Html
|
|
workflowInstanceEditR = error "not implemented"
|