fixed check of used avatars

2015-06-24 01:48:06 +02:00 · 2015-06-24 01:48:06 +02:00 · c5f138a36c
commit c5f138a36c
parent f1927d7452
1 changed files with 2 additions and 1 deletions
--- a/Handler/Avatar.hs
+++ b/Handler/Avatar.hs
@ -119,7 +119,8 @@ getAvatarDeleteR aId = do
  case ma of
    Just _ -> do
      c <- runDB $ selectList [UserAvatar ==. Just aId] []
-      case null c of
+      d <- runDB $ selectList [BeverageAvatar ==. Just aId] []
+      case null c && null d of
        True -> do
          runDB $ delete aId
          setMessageI MsgAvatarDeleted