fixed check of used avatars
This commit is contained in:
parent
f1927d7452
commit
c5f138a36c
|
@ -119,7 +119,8 @@ getAvatarDeleteR aId = do
|
||||||
case ma of
|
case ma of
|
||||||
Just _ -> do
|
Just _ -> do
|
||||||
c <- runDB $ selectList [UserAvatar ==. Just aId] []
|
c <- runDB $ selectList [UserAvatar ==. Just aId] []
|
||||||
case null c of
|
d <- runDB $ selectList [BeverageAvatar ==. Just aId] []
|
||||||
|
case null c && null d of
|
||||||
True -> do
|
True -> do
|
||||||
runDB $ delete aId
|
runDB $ delete aId
|
||||||
setMessageI MsgAvatarDeleted
|
setMessageI MsgAvatarDeleted
|
||||||
|
|
Loading…
Reference in a new issue