Fix variable name

2018-08-14 22:28:35 +03:00
parent 6f016e1283
commit 7a86d5da4c
1 changed files with 3 additions and 3 deletions
--- 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