show message when extra points added

2018-01-02 19:36:41 +01:00 · 2018-01-02 19:36:41 +01:00 · ffd746d51a
commit ffd746d51a
parent 0243665bb0
1 changed files with 1 additions and 0 deletions
--- 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 ()