Corrections: Link for UUIDs

2018-06-21 14:07:21 +02:00 · 2018-06-21 14:07:21 +02:00 · f232e4d149
commit f232e4d149
parent 2ea2968e43
1 changed files with 1 additions and 1 deletions
--- 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