module Handler.Workflow.Instance.Edit
  ( getGWIEditR, postGWIEditR 
  , getSWIEditR, postSWIEditR 
  , workflowInstanceEditR
  , getAWIEditR, postAWIEditR
  ) 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"


getAWIEditR, postAWIEditR :: CryptoUUIDWorkflowInstance -> Handler Html
getAWIEditR = postAWIEditR
postAWIEditR = error "not implemented"
