module Handler.Workflow.Instance.Delete
  ( getGWIDeleteR, postGWIDeleteR 
  , getSWIDeleteR, postSWIDeleteR
  , workflowInstanceDeleteR
  ) where

import Import

import Utils.Workflow


getGWIDeleteR, postGWIDeleteR :: WorkflowInstanceName -> Handler Html
getGWIDeleteR = postGWIDeleteR
postGWIDeleteR = workflowInstanceDeleteR WSGlobal
  
getSWIDeleteR, postSWIDeleteR :: SchoolId -> WorkflowInstanceName -> Handler Html
getSWIDeleteR = postSWIDeleteR
postSWIDeleteR ssh = workflowInstanceDeleteR $ WSSchool ssh

workflowInstanceDeleteR :: RouteWorkflowScope -> WorkflowInstanceName -> Handler Html
workflowInstanceDeleteR = error "not implemented"