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} |]