From 9ecffc8d8c843441365e871a50fa74cfa36abd5c Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Thu, 9 Jan 2020 08:56:19 +0100 Subject: [PATCH] fix: fix hlint --- src/Handler/Exam/Correct.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs index 0c4aa044c..31bd1d8ed 100644 --- a/src/Handler/Exam/Correct.hs +++ b/src/Handler/Exam/Correct.hs @@ -54,7 +54,7 @@ getECorrectR tid ssh csh examn = do ptsInput :: ExamPartNumber -> Widget ptsInput n = do 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} |]