Merge branch 'master' into 'live'

Fix #235

Closes #235

See merge request !99

src/Handler/Corrections.hs

@@ -517,18 +517,19 @@ postCorrectionR tid ssh csh shn cid = do
       case corrResult of
         FormMissing -> return ()
         FormFailure errs -> mapM_ (addMessage Error . toHtml) errs
-        FormSuccess (rated, ratingPoints', ratingComment')
-          | errs <- validateRating sheetType Rating'
-                      { ratingPoints=ratingPoints'
-                      , ratingComment=ratingComment'
-                      , ratingTime=Nothing
-                      }
-            -> mapM_ (addMessageI Error) errs
-          | otherwise -> do
-            runDBJobs $ do
+        FormSuccess (rated, ratingPoints', ratingComment') -> do
           uid <- liftHandlerT requireAuthId
           now <- liftIO getCurrentTime
 
+          if
+            | errs <- validateRating sheetType Rating'
+                        { ratingPoints  = ratingPoints'
+                        , ratingComment = ratingComment'
+                        , ratingTime    = (now <$ guard rated)
+                        }
+            , not $ null errs
+              -> mapM_ (addMessageI Error) errs
+            | otherwise -> runDBJobs $ do
                 update sub  [ SubmissionRatingBy      =. Just uid
                             , SubmissionRatingTime    =. (now <$ guard rated)
                             , SubmissionRatingPoints  =. ratingPoints'