@@ -352,7 +352,7 @@ getAllChannels uId = fmap (map removeUserFromChannel) $
352deleteNamedChannel :: UserId -> NamedChannelId -> StaticPQ ()
352deleteNamedChannel :: UserId -> NamedChannelId -> StaticPQ ()
353-- deleteNamedChannel uId cId = transactionally_ $ do
353-- deleteNamedChannel uId cId = transactionally_ $ do
354deleteNamedChannel uId cId = do
354deleteNamedChannel uId cId = do
355− _ <- getChannelForUser uId cId
355+ _ <- getChannelForUser uId cId
356 _ <- manipulateParams deleteNamedChannelQ (Only cId)
356 _ <- manipulateParams deleteNamedChannelQ (Only cId)
357 return ()
357 return ()