From f232e4d1490273b76333d78da6259f311addead9 Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Thu, 21 Jun 2018 14:07:21 +0200
Subject: [PATCH] Corrections: Link for UUIDs

---
 src/Handler/Corrections.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 55f0ad589..e3f2ef05a 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -76,7 +76,7 @@ getCorrectionsR = do
                   csh = E.unValue $ $(projNI 4 2) course
                   shn = sheetName $ entityVal sheet
               cid <- encrypt (entityKey submission :: SubmissionId)
-              [whamlet|@{CSheetR tid csh shn (SubmissionR cid)}|]
+              [whamlet|<a href=@{CSheetR tid csh shn (SubmissionR cid)}>#{display cid}|]
         ]
         -- TODO continue here
   table <- dbTable def $ DBTable