couchdb-conduit 0.5.1 → 0.5.2

raw patch · 3 files changed

+17/−11 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• couchdb-conduit.cabal +1/−1
• src/Database/CouchDB/Conduit/View.hs +7/−1
• test/Database/CouchDB/Conduit/Test/View.hs +9/−9

@@ -1,5 +1,5 @@ name:           couchdb-conduit-version:        0.5.1
+version:        0.5.2
 cabal-version:  >= 1.8 build-type:     Simple stability:      Stable

@@ -72,7 +72,8 @@     -> HT.Query             -- ^ Query parameters     -> ResourceT m (Source m A.Object) couchView db designDocName viewName q = do-    H.Response _ _ bsrc <- couch HT.methodGet fullPath [] q 
+    H.Response _ _ bsrc <- couch HT.methodGet fullPath [] 
+        (("update_seq", Just "false"):q) 
         (H.RequestBodyBS B.empty) protect'
     return $ bsrc $= conduitCouchView
   where
@@ -153,4 +154,9 @@     _ <- option "" $ string ","
     _ <- string "\"rows\":["
     (string "]}" >> return False) <|> return True
+    
+    
+    
+    
+    
     

@@ -31,9 +31,9 @@ 
 tests :: Test
 tests = mutuallyExclusive $ testGroup "View" [
-    testCase "Create" case_createView,
-    testCase "Big values parsing" case_bigValues,
-    testCase "View with reduce" case_withReduce
+    testCase "Create" caseCreateView,
+    testCase "Big values parsing" caseBigValues,
+    testCase "View with reduce" caseWithReduce
     ]
 
 data T = T {
@@ -49,8 +49,8 @@ instance A.ToJSON T where
    toJSON (T k i s) = A.object ["kind" .= k, "intV" .= i, "strV" .= s]
 
-case_createView :: Assertion
-case_createView = bracket_
+caseCreateView :: Assertion
+caseCreateView = bracket_
     (setupDB db)
     (tearDB db) $ runCouch conn $ do
         rev <- couchPutView' db "mydesign" "myview"
@@ -60,8 +60,8 @@   where 
     db = "cdbc_test_view_create"
 
-case_bigValues :: Assertion
-case_bigValues = bracket_
+caseBigValues :: Assertion
+caseBigValues = bracket_
     (runCouch conn $ do
         couchPutDB_ db
         _ <- couchPutView' db "mydesign" "myview"
@@ -78,8 +78,8 @@ 
 data ReducedView = ReducedView Int deriving (Show, Eq, Data, Typeable)
 
-case_withReduce :: Assertion    
-case_withReduce = bracket_
+caseWithReduce :: Assertion    
+caseWithReduce = bracket_
     (runCouch conn $ do
         couchPutDB_ db
         _ <- couchPutView' db "mydesign" "myview"