s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

show message when extra points added

Browse Source
This commit is contained in:
Filip Gralinski 2018-01-02 19:36:41 +01:00
parent 0243665bb0
commit ffd746d51a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Handler/ExtraPoints.hs
View File

@ -20,6 +20,7 @@ postExtraPointsR = do
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
let (Just (Entity adderId _)) = mUser let (Just (Entity adderId _)) = mUser
_ <- runDB $ insert $ ExtraPoints points description userId courseId now adderId _ <- runDB $ insert $ ExtraPoints points description userId courseId now adderId
setMessage $ toHtml ("OK! Extra points added" :: Text)
return () return ()
_ -> do _ -> do
return () return ()