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

fix: fix hlint

Browse Source
This commit is contained in:
Sarah Vaupel 2020-01-09 08:56:19 +01:00
parent cb7c9ac6da
commit 9ecffc8d8c
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/Exam/Correct.hs
View File

@ -54,7 +54,7 @@ getECorrectR tid ssh csh examn = do
ptsInput :: ExamPartNumber -> Widget ptsInput :: ExamPartNumber -> Widget
ptsInput n = do ptsInput n = do
name <- newIdent name <- newIdent
fieldView (pointsField :: Field Handler Points) ("exam-correct__"<>(toPathPiece n)) name [("class","exam-correct__pts-input")] (Left "") False fieldView (pointsField :: Field Handler Points) ("exam-correct__" <> toPathPiece n) name [("class","exam-correct__pts-input")] (Left "") False
participantHeadTooltip = [whamlet| _{MsgExamCorrectHeadParticipantTooltip} |] participantHeadTooltip = [whamlet| _{MsgExamCorrectHeadParticipantTooltip} |]