From 0d4dcf8658d7b6d6f3fe692400c772425bbfb3b0 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Fri, 7 Feb 2020 14:48:51 +0100
Subject: [PATCH] feat: pageactions for exam correct interface

---
 src/Foundation.hs | 56 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index f2f35bc34..ec9808928 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -3321,6 +3321,40 @@ pageActions (CExamR tid ssh csh examn EShowR) = do
       , navChildren = []
       }
     ]
+pageActions (CExamR tid ssh csh examn ECorrectR) = return
+  [ NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuExamUsers
+      , navRoute       = CExamR tid ssh csh examn EUsersR
+      , navAccess'     = return True
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  , NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuExamGrades
+      , navRoute       = CExamR tid ssh csh examn EGradesR
+      , navAccess'     = return True
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
+  , NavPageActionSecondary
+    { navLink = NavLink
+      { navLabel       = MsgMenuExamEdit
+      , navRoute       = CExamR tid ssh csh examn EEditR
+      , navAccess'     = return True
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    }
+  ]
 pageActions (CExamR tid ssh csh examn EUsersR) = return
   [ NavPageActionPrimary
     { navLink = NavLink
@@ -3344,6 +3378,17 @@ pageActions (CExamR tid ssh csh examn EUsersR) = return
       }
     , navChildren = []
     }
+  , NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuExamCorrect
+      , navRoute       = CExamR tid ssh csh examn ECorrectR
+      , navAccess'     = return True
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
   ]
 pageActions (CExamR tid ssh csh examn EGradesR) = return
   [ NavPageActionPrimary
@@ -3357,6 +3402,17 @@ pageActions (CExamR tid ssh csh examn EGradesR) = return
       }
     , navChildren = []
     }
+  , NavPageActionPrimary
+    { navLink = NavLink
+      { navLabel       = MsgMenuExamCorrect
+      , navRoute       = CExamR tid ssh csh examn ECorrectR
+      , navAccess'     = return True
+      , navType        = NavTypeLink { navModal = False }
+      , navQuick'      = mempty
+      , navForceActive = False
+      }
+    , navChildren = []
+    }
   ]
 pageActions (CSheetR tid ssh csh shn SShowR) = do
   subsSecondary <- pageQuickActions NavQuickViewPageActionSecondary $ CSheetR tid ssh csh shn SSubsR