From 8da542fb9038d3d9ca87f3942673c04c71e44983 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Sun, 22 Jul 2018 17:28:53 +0200
Subject: [PATCH] Don't hide CorrectionR-PageAction

Fixes #128
---
 src/Foundation.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/src/Foundation.hs b/src/Foundation.hs
index cb8ac4f42..44c02a3c0 100644
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@@ -882,10 +882,7 @@ pageActions (CSubmissionR tid csh shn cid SubShowR) =
       { menuItemLabel = "Korrektur"
       , menuItemIcon  = Nothing
       , menuItemRoute = CSubmissionR tid csh shn cid CorrectionR
-      , menuItemAccessCallback' = do
-          smid <- decrypt cid
-          sm <- runDB $ get smid
-          return $ maybe False submissionRatingDone sm
+      , menuItemAccessCallback' = return True
       }
   ]
 pageActions (CSheetR tid csh shn SCorrR) =