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"