diff --git a/src/Handler/Exam.hs b/src/Handler/Exam.hs
index 73c323d4d..5b0e634c5 100644
--- a/src/Handler/Exam.hs
+++ b/src/Handler/Exam.hs
@@ -699,7 +699,7 @@ getEShowR :: TermId -> SchoolId -> CourseShorthand -> ExamName -> Handler Html
 getEShowR tid ssh csh examn = do
   cTime <- liftIO getCurrentTime
   mUid <- maybeAuthId
-  
+
   (Entity _ Exam{..}, parts, examVisible, (gradingVisible, gradingShown), (occurrenceAssignmentsVisible, occurrenceAssignmentsShown), results, result, occurrences, (registered, mayRegister), occurrenceNamesShown) <- runDB $ do
     exam@(Entity eId Exam{..}) <- fetchExam tid ssh csh examn
 
@@ -865,10 +865,10 @@ instance CsvColumnsExplained ExamUserTableCsv where
     , ('csvEUserDegree           , MsgCsvColumnExamUserDegree            )
     , ('csvEUserSemester         , MsgCsvColumnExamUserSemester          )
     , ('csvEUserOccurrence       , MsgCsvColumnExamUserOccurrence        )
-    , ('csvEUserExercisePoints   , MsgCsvColumnExamUserExercisePoints    ) 
-    , ('csvEUserExercisePasses   , MsgCsvColumnExamUserExercisePasses    ) 
-    , ('csvEUserExercisePointsMax, MsgCsvColumnExamUserExercisePointsMax ) 
-    , ('csvEUserExercisePassesMax, MsgCsvColumnExamUserExercisePassesMax ) 
+    , ('csvEUserExercisePoints   , MsgCsvColumnExamUserExercisePoints    )
+    , ('csvEUserExercisePasses   , MsgCsvColumnExamUserExercisePasses    )
+    , ('csvEUserExercisePointsMax, MsgCsvColumnExamUserExercisePointsMax )
+    , ('csvEUserExercisePassesMax, MsgCsvColumnExamUserExercisePassesMax )
     ]
 
 data ExamUserAction = ExamUserDeregister
@@ -923,7 +923,7 @@ postEUsersR tid ssh csh examn = do
                 SheetGradeSummary{achievedPoints} <- examBonusAchieved uid bonus
                 SheetGradeSummary{sumSheetsPoints} <- examBonusPossible uid bonus
                 return $ propCell (getSum achievedPoints) (getSum sumSheetsPoints)
-            ] 
+            ]
           dbtSorting = Map.fromList
             [ sortUserNameLink     queryUser
             , sortUserSurname      queryUser
@@ -1032,7 +1032,7 @@ postERegisterR tid ssh csh examn = do
       runDB $ do
         deleteBy $ UniqueExamRegistration eId uid
         audit' $ TransactionExamDeregister (unTermKey tid) (unSchoolKey ssh) csh examn userIdent
-      addMessageI Success $ MsgExamDeregisteredSuccess examn
+      addMessageI Info $ MsgExamDeregisteredSuccess examn -- yes, it's a success message, but it should be visually different from a positive success, since most will just note the positive green color! Maybe make it even a warning?!
       redirect $ CExamR tid ssh csh examn EShowR
 
   invalidArgs ["Register/Deregister button required"]