Revert "Don’t returns self in group chat. Delete group chat when empty."
This reverts commit b655fe5eac4b56ec195ac5da170e32c3c20be382.
commitfd397938e6106e7c69fd1077fd44d716770207c6
authoriko <ilyakooo0@gmail.com>
dateMon 6 May 2019, 00:19 (7 years ago)
parentb655fe5
denis/src/Data/Query.hs+1−2
@@ -665,8 +665,7 @@ getGroupChatForUser :: UserId -> GroupChatId -> StaticPQ GroupChat
665665getGroupChatForUser uId gId = do
666666 chat <- runQueryParams getGroupChatForUserQ (show uId, gId) >>= firstRow
667667 case (chat) of
668− (Just c@GroupChat{groupChatUsers = Jsonb perms}) ->
669− return c{groupChatUsers = Jsonb . M.delete uId $ perms}
668+ (Just c) -> return c
670669 Nothing -> lift $ S.throwError S.err404
671670
672671-- MARK: Utils