Commit ad08e8dd authored by Christopher League's avatar Christopher League
Browse files

fix one warning

parent 77a624b6
......@@ -398,8 +398,7 @@ handleU1ToBaseR = do
else 2
newPts = min u1ToBaseMaxPoints (origPts + award)
deltaPts = newPts - origPts
when (deltaPts > 0) $ do
uid <- requireAuthId
when (deltaPts > 0) $
updateAuth_
("u1ToBase points := " <> show newPts)
(userScores . at u1ToBaseKey ?~ newPts)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment