From 64bd96dd704866e1eb93d17f5c4f978516dff7e3 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Sat, 14 May 2022 00:09:48 +0200
Subject: [PATCH] chore(workflow): complete canonical routes

---
 src/Handler/Utils/Workflow/CanonicalRoute.hs | 51 ++++++++++++--------
 1 file changed, 30 insertions(+), 21 deletions(-)

diff --git a/src/Handler/Utils/Workflow/CanonicalRoute.hs b/src/Handler/Utils/Workflow/CanonicalRoute.hs
index 507da9cee..969d403dd 100644
--- a/src/Handler/Utils/Workflow/CanonicalRoute.hs
+++ b/src/Handler/Utils/Workflow/CanonicalRoute.hs
@@ -12,11 +12,12 @@ data WorkflowScopeRoute
   | WorkflowInstanceNewR
   | WorkflowInstanceR WorkflowInstanceName WorkflowInstanceR
   | WorkflowWorkflowListR
+  | WorkflowWorkflowArchiveR
   | WorkflowWorkflowR CryptoFileNameWorkflowWorkflow WorkflowWorkflowR
   deriving (Eq, Ord, Read, Show, Generic, Typeable)
 
 data WorkflowInstanceR
-  = WIEditR | WIDeleteR | WIWorkflowsR | WIInitiateR | WIUpdateR
+  = WIEditR | WIDeleteR | WIWorkflowsR | WIWorkflowsArchiveR | WIInitiateR | WIUpdateR
   deriving (Eq, Ord, Read, Show, Generic, Typeable)
 
 data WorkflowWorkflowR
@@ -32,12 +33,14 @@ _WorkflowScopeRoute = prism' (uncurry toRoute) toWorkflowScopeRoute
         WorkflowInstanceListR            -> GlobalWorkflowInstanceListR
         WorkflowInstanceNewR             -> GlobalWorkflowInstanceNewR
         WorkflowInstanceR win subRoute   -> GlobalWorkflowInstanceR win $ case subRoute of
-          WIEditR      -> GWIEditR
-          WIDeleteR    -> GWIDeleteR
-          WIWorkflowsR -> GWIWorkflowsR
-          WIInitiateR  -> GWIInitiateR
-          WIUpdateR    -> GWIUpdateR
+          WIEditR             -> GWIEditR
+          WIDeleteR           -> GWIDeleteR
+          WIWorkflowsR        -> GWIWorkflowsR
+          WIWorkflowsArchiveR -> GWIWorkflowsArchiveR
+          WIInitiateR         -> GWIInitiateR
+          WIUpdateR           -> GWIUpdateR
         WorkflowWorkflowListR            -> GlobalWorkflowWorkflowListR
+        WorkflowWorkflowArchiveR         -> GlobalWorkflowWorkflowArchiveR
         WorkflowWorkflowR wwCID subRoute -> GlobalWorkflowWorkflowR wwCID $ case subRoute of
           WWWorkflowR        -> GWWWorkflowR
           WWFilesR wpl stCID -> GWWFilesR wpl stCID
@@ -47,12 +50,14 @@ _WorkflowScopeRoute = prism' (uncurry toRoute) toWorkflowScopeRoute
         WorkflowInstanceListR            -> SchoolWorkflowInstanceListR
         WorkflowInstanceNewR             -> SchoolWorkflowInstanceNewR
         WorkflowInstanceR win subRoute   -> SchoolWorkflowInstanceR win $ case subRoute of
-          WIEditR      -> SWIEditR
-          WIDeleteR    -> SWIDeleteR
-          WIWorkflowsR -> SWIWorkflowsR
-          WIInitiateR  -> SWIInitiateR
-          WIUpdateR    -> SWIUpdateR
+          WIEditR             -> SWIEditR
+          WIDeleteR           -> SWIDeleteR
+          WIWorkflowsR        -> SWIWorkflowsR
+          WIWorkflowsArchiveR -> SWIWorkflowsArchiveR
+          WIInitiateR         -> SWIInitiateR
+          WIUpdateR           -> SWIUpdateR
         WorkflowWorkflowListR            -> SchoolWorkflowWorkflowListR
+        WorkflowWorkflowArchiveR         -> SchoolWorkflowWorkflowArchiveR
         WorkflowWorkflowR wwCID subRoute -> SchoolWorkflowWorkflowR wwCID $ case subRoute of
           WWWorkflowR        -> SWWWorkflowR
           WWFilesR wpl stCID -> SWWFilesR wpl stCID
@@ -63,12 +68,14 @@ _WorkflowScopeRoute = prism' (uncurry toRoute) toWorkflowScopeRoute
       GlobalWorkflowInstanceListR            -> Just ( WSGlobal, WorkflowInstanceListR )
       GlobalWorkflowInstanceNewR             -> Just ( WSGlobal, WorkflowInstanceNewR )
       GlobalWorkflowInstanceR win subRoute   -> Just . (WSGlobal, ) . WorkflowInstanceR win $ case subRoute of
-        GWIEditR      -> WIEditR
-        GWIDeleteR    -> WIDeleteR
-        GWIWorkflowsR -> WIWorkflowsR
-        GWIInitiateR  -> WIInitiateR
-        GWIUpdateR    -> WIUpdateR
+        GWIEditR             -> WIEditR
+        GWIDeleteR           -> WIDeleteR
+        GWIWorkflowsR        -> WIWorkflowsR
+        GWIWorkflowsArchiveR -> WIWorkflowsArchiveR
+        GWIInitiateR         -> WIInitiateR
+        GWIUpdateR           -> WIUpdateR
       GlobalWorkflowWorkflowListR            -> Just ( WSGlobal, WorkflowWorkflowListR )
+      GlobalWorkflowWorkflowArchiveR         -> Just ( WSGlobal, WorkflowWorkflowArchiveR )
       GlobalWorkflowWorkflowR wwCID subRoute -> Just . (WSGlobal, ) . WorkflowWorkflowR wwCID $ case subRoute of
         GWWWorkflowR        -> WWWorkflowR
         GWWFilesR wpl stCID -> WWFilesR wpl stCID
@@ -78,12 +85,14 @@ _WorkflowScopeRoute = prism' (uncurry toRoute) toWorkflowScopeRoute
         SchoolWorkflowInstanceListR            -> Just ( WSSchool ssh, WorkflowInstanceListR )
         SchoolWorkflowInstanceNewR             -> Just ( WSSchool ssh, WorkflowInstanceNewR )
         SchoolWorkflowInstanceR win subRoute   -> Just . (WSSchool ssh, ) . WorkflowInstanceR win $ case subRoute of
-          SWIEditR      -> WIEditR
-          SWIDeleteR    -> WIDeleteR
-          SWIWorkflowsR -> WIWorkflowsR
-          SWIInitiateR  -> WIInitiateR
-          SWIUpdateR    -> WIUpdateR
+          SWIEditR             -> WIEditR
+          SWIDeleteR           -> WIDeleteR
+          SWIWorkflowsR        -> WIWorkflowsR
+          SWIWorkflowsArchiveR -> WIWorkflowsArchiveR
+          SWIInitiateR         -> WIInitiateR
+          SWIUpdateR           -> WIUpdateR
         SchoolWorkflowWorkflowListR            -> Just ( WSSchool ssh, WorkflowWorkflowListR )
+        SchoolWorkflowWorkflowArchiveR         -> Just ( WSSchool ssh, WorkflowWorkflowArchiveR )
         SchoolWorkflowWorkflowR wwCID subRoute -> Just . (WSSchool ssh, ) . WorkflowWorkflowR wwCID $ case subRoute of
           SWWWorkflowR        -> WWWorkflowR
           SWWFilesR wpl stCID -> WWFilesR wpl stCID