fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corrections: Link for UUIDs

Browse Source
This commit is contained in:
SJost 2018-06-21 14:07:21 +02:00
parent 2ea2968e43
commit f232e4d149
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Corrections.hs
View File

@ -76,7 +76,7 @@ getCorrectionsR = do
csh = E.unValue $ $(projNI 4 2) course csh = E.unValue $ $(projNI 4 2) course
shn = sheetName $ entityVal sheet shn = sheetName $ entityVal sheet
cid <- encrypt (entityKey submission :: SubmissionId) 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 -- TODO continue here
table <- dbTable def $ DBTable table <- dbTable def $ DBTable