forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Fix typo which caused infinite loop

Browse source
This commit is contained in:
fr33domlover 2016-02-05 23:41:55 +00:00
parent aa351c00d2
commit 547db845be
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Vervis.hs
View file

@ -304,8 +304,9 @@ createUser user = do
vstate <- get vstate <- get
let users = vsUsers vstate let users = vsUsers vstate
next = vsNextUser vstate next = vsNextUser vstate
users' = M.insert next user users' users' = M.insert next user users
put vstate { vsUsers = users', vsNextUser = UserID $ unUserID next + 1 } next' = UserID $ unUserID next + 1
put vstate { vsUsers = users', vsNextUser = next' }
saveState saveState
------------------------------------------------------------------------------- -------------------------------------------------------------------------------