Complete functions for channels
This commit is contained in:
parent
f7bc0d420c
commit
c05251525b
@ -51,10 +51,10 @@ booksChannels bookId = fromRels <$> query q
|
||||
|
||||
attachChannel :: (MonadMask m, MonadIO m, MonadSelda m) => Username -> BookID -> Text -> m ()
|
||||
attachChannel username bookId channel = do
|
||||
-- XXX: test what happens if channel doesn't exist
|
||||
[Channel{identifier}] <- fromRels <$> query channelQ
|
||||
whenM (null <$> query (attachQ identifier)) $
|
||||
void $ insertGen bookChannels [BookChannel identifier bookId]
|
||||
mCh <- fromRels <$> query channelQ
|
||||
forM_ mCh $ \Channel{identifier} ->
|
||||
whenM (null <$> query (attachQ identifier)) $
|
||||
void $ insertGen bookChannels [BookChannel identifier bookId]
|
||||
where
|
||||
attachQ channelId = do
|
||||
(channelId' :*: bookId') <- select (gen bookChannels)
|
||||
|
Loading…
Reference in New Issue
Block a user