From ffd746d51aa7887d2eeaae41f92856c968d76955 Mon Sep 17 00:00:00 2001
From: Filip Gralinski <filipg@amu.edu.pl>
Date: Tue, 2 Jan 2018 19:36:41 +0100
Subject: [PATCH] show message when extra points added

---
 Handler/ExtraPoints.hs | 1 +
 1 file changed, 1 insertion(+)

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 ()