Permalink
Browse files

Ops fix paginateSource

  • Loading branch information...
1 parent c786f62 commit b7d4ced52f535c1d2f62b2801a1ac0cc2d7d2d40 @ozataman ozataman committed Mar 12, 2013
Showing with 5 additions and 4 deletions.
  1. +5 −4 src/Database/Cassandra/Marshall.hs
@@ -455,14 +455,15 @@ pageToSource (PMore as m) = C.sourceList as >> lift m >>= pageToSource
-------------------------------------------------------------------------------
-- | Just like 'paginate', but we instead return a conduit 'Source'.
paginateSource
- :: (CasType k, MonadCatchIO m, MonadCatchIO (PageResult m),
- MonadCassandra (PageResult m))
+ :: (CasType k, MonadCatchIO m, MonadCassandra m)
=> Marshall a
-> ColumnFamily
-> RowKey
-> Selector
-> ConsistencyLevel
-> RetrySettings
- -> Source m (PageResult (PageResult m) (k, a))
-paginateSource m cf k rng cl r = pageToSource $ paginate m cf k rng cl r
+ -> Source m (k, a)
+paginateSource m cf k rng cl r = do
+ buf <- lift $ paginate m cf k rng cl r
+ pageToSource buf

0 comments on commit b7d4ced

Please sign in to comment.