src/Database/Channel.hs

@@ -51,8 +51,8 @@ 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
+  mCh <- fromRels <$> query channelQ
+  forM_ mCh $ \Channel{identifier} ->
     whenM (null <$> query (attachQ identifier)) $
       void $ insertGen bookChannels [BookChannel identifier bookId]
   where