From 7a86d5da4c3766646f7e78b8afdc1879d4ca8687 Mon Sep 17 00:00:00 2001 From: Mats Rauhala Date: Tue, 14 Aug 2018 22:28:35 +0300 Subject: [PATCH] Fix variable name --- src/Database/Channel.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Database/Channel.hs b/src/Database/Channel.hs index 3b85fe2..7da845f 100644 --- a/src/Database/Channel.hs +++ b/src/Database/Channel.hs @@ -36,11 +36,11 @@ insertChannel username channel = do return userId booksChannels :: (MonadMask m, MonadIO m) => BookID -> SeldaT m [Channel] -booksChannels contentHash = fromRels <$> query q +booksChannels bookId = fromRels <$> query q where q = do - channelId :*: contentHash' <- select (gen bookChannels) + channelId :*: bookId' <- select (gen bookChannels) ch@(channelId' :*: _) <- select (gen channels) restrict (channelId .== channelId') - restrict (contentHash' .== literal contentHash) + restrict (bookId' .== literal bookId) return ch