fixed bug in issue #77

This commit is contained in:
nek0 2015-11-03 23:32:28 +01:00
parent fdfe41ac4a
commit fa8cc79fa5
31 changed files with 1 additions and 1 deletions

0
Application.hs Normal file → Executable file
View File

0
Foundation.hs Normal file → Executable file
View File

0
Handler/Avatar.hs Normal file → Executable file
View File

0
Handler/Barcode.hs Normal file → Executable file
View File

0
Handler/Buy.hs Normal file → Executable file
View File

0
Handler/CashCheck.hs Normal file → Executable file
View File

0
Handler/Common.hs Normal file → Executable file
View File

0
Handler/Home.hs Normal file → Executable file
View File

0
Handler/Journal.hs Normal file → Executable file
View File

0
Handler/Modify.hs Normal file → Executable file
View File

2
Handler/NewUser.hs Normal file → Executable file
View File

@ -102,7 +102,7 @@ postModifyUserR uId = do
$ modifyUserForm user bs
case res of
FormSuccess uc -> do
namesakes <- runDB $ selectList [UserIdent ==. userConfIdent uc] []
namesakes <- runDB $ selectList [UserIdent ==. userConfIdent uc, UserId !=. uId] []
if null namesakes
then do
runDB $ update uId

0
Handler/Payout.hs Normal file → Executable file
View File

0
Handler/Restock.hs Normal file → Executable file
View File

0
Handler/Select.hs Normal file → Executable file
View File

0
Handler/Summary.hs Normal file → Executable file
View File

0
Handler/Supplier.hs Normal file → Executable file
View File

0
Handler/SupplierActions.hs Normal file → Executable file
View File

0
Handler/Transfer.hs Normal file → Executable file
View File

0
Import.hs Normal file → Executable file
View File

0
Import/NoFoundation.hs Normal file → Executable file
View File

0
LICENSE.md Normal file → Executable file
View File

0
Model.hs Normal file → Executable file
View File

0
README.md Normal file → Executable file
View File

0
Settings.hs Normal file → Executable file
View File

0
Settings/StaticFiles.hs Normal file → Executable file
View File

0
app/DevelMain.hs Normal file → Executable file
View File

0
app/devel.hs Normal file → Executable file
View File

0
app/main.hs Normal file → Executable file
View File

0
test/Spec.hs Normal file → Executable file
View File

0
test/TestImport.hs Normal file → Executable file
View File

0
yammat.cabal Normal file → Executable file
View File