diff --git a/Handler/ExtraPoints.hs b/Handler/ExtraPoints.hs
index 081e396..e78c5d4 100644
--- a/Handler/ExtraPoints.hs
+++ b/Handler/ExtraPoints.hs
@@ -20,6 +20,7 @@ postExtraPointsR = do
                             now <- liftIO getCurrentTime
                             let (Just (Entity adderId _)) = mUser
                             _ <- runDB $ insert $ ExtraPoints points description userId courseId now adderId
+                            setMessage $ toHtml ("OK! Extra points added" :: Text)
                             return ()
       _ -> do
            return ()