Permalink
Browse files

Up the "All" threshold to 5000 columns

  • Loading branch information...
1 parent ec1c368 commit 8d21705c662a9cad90b9e5b2257491580b79d8c7 @ozataman ozataman committed Mar 26, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/Database/Cassandra/Types.hs
@@ -62,10 +62,12 @@ data Selector =
deriving (Show)
+
+-------------------------------------------------------------------------------
mkPredicate :: Selector -> C.SlicePredicate
mkPredicate s =
let
- allRange = C.SliceRange (Just "") (Just "") (Just False) (Just 100)
+ allRange = C.SliceRange (Just "") (Just "") (Just False) (Just 5000)
in case s of
All -> C.SlicePredicate Nothing (Just allRange)
ColNames ks -> C.SlicePredicate (Just ks) Nothing

0 comments on commit 8d21705

Please sign in to comment.