Hello community,

here is the log from the commit of package ghc-hedis for openSUSE:Factory 
checked in at 2017-05-06 18:28:43
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-hedis (Old)
 and      /work/SRC/openSUSE:Factory/.ghc-hedis.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "ghc-hedis"

Sat May  6 18:28:43 2017 rev:6 rq:491473 version:0.9.8

Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-hedis/ghc-hedis.changes      2017-02-22 
13:53:26.525106098 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-hedis.new/ghc-hedis.changes 2017-05-06 
18:28:43.835023695 +0200
@@ -1,0 +2,5 @@
+Wed Apr 19 13:32:39 UTC 2017 - [email protected]
+
+- Update to version 0.9.8 with cabal2obs.
+
+-------------------------------------------------------------------

Old:
----
  hedis-0.9.7.tar.gz

New:
----
  hedis-0.9.8.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ ghc-hedis.spec ++++++
--- /var/tmp/diff_new_pack.0dMp8A/_old  2017-05-06 18:28:44.858879224 +0200
+++ /var/tmp/diff_new_pack.0dMp8A/_new  2017-05-06 18:28:44.862878659 +0200
@@ -19,7 +19,7 @@
 %global pkg_name hedis
 %bcond_with tests
 Name:           ghc-%{pkg_name}
-Version:        0.9.7
+Version:        0.9.8
 Release:        0
 Summary:        Client library for the Redis datastore: supports full command 
set, pipelining
 License:        BSD-3-Clause

++++++ hedis-0.9.7.tar.gz -> hedis-0.9.8.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/hedis-0.9.7/CHANGELOG new/hedis-0.9.8/CHANGELOG
--- old/hedis-0.9.7/CHANGELOG   2017-01-28 16:03:00.000000000 +0100
+++ new/hedis-0.9.8/CHANGELOG   2017-04-10 09:11:53.000000000 +0200
@@ -1,8 +1,13 @@
 # Changelog for Hedis
 
+## 0.9.8
+
+* Fix syntax errors from redis when using scanOpts to specify match
+  pattern or count options (see PR #88)
+
 ## 0.9.7
 
-Expose returnDecode method of RedisCtx (see issue #83)
+* Expose returnDecode method of RedisCtx (see issue #83)
 
 ## 0.9.2
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/hedis-0.9.7/hedis.cabal new/hedis-0.9.8/hedis.cabal
--- old/hedis-0.9.7/hedis.cabal 2017-01-28 16:02:24.000000000 +0100
+++ new/hedis-0.9.8/hedis.cabal 2017-04-10 09:12:34.000000000 +0200
@@ -1,5 +1,5 @@
 name:               hedis
-version:            0.9.7
+version:            0.9.8
 synopsis:
     Client library for the Redis datastore: supports full command set,
     pipelining.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/hedis-0.9.7/src/Database/Redis/ManualCommands.hs 
new/hedis-0.9.8/src/Database/Redis/ManualCommands.hs
--- old/hedis-0.9.7/src/Database/Redis/ManualCommands.hs        2016-05-31 
19:29:19.000000000 +0200
+++ new/hedis-0.9.8/src/Database/Redis/ManualCommands.hs        2017-04-10 
09:07:57.000000000 +0200
@@ -699,9 +699,9 @@
 addScanOpts cmd ScanOpts{..} =
     concat [cmd, match, count]
   where
-    match = maybeToList scanMatch
-    count = map encode $ maybeToList scanCount
-
+    prepend x y = [x, y]
+    match       = maybe [] (prepend "MATCH") scanMatch
+    count       = maybe [] ((prepend "COUNT").encode) scanCount
 
 sscan
     :: (RedisCtx m f)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/hedis-0.9.7/test/Test.hs new/hedis-0.9.8/test/Test.hs
--- old/hedis-0.9.7/test/Test.hs        2016-08-07 13:21:06.000000000 +0200
+++ new/hedis-0.9.8/test/Test.hs        2017-04-10 09:07:57.000000000 +0200
@@ -532,12 +532,16 @@
 testScans = testCase "scans" $ do
     set "key" "value"       >>=? Ok
     scan cursor0            >>=? (cursor0, ["key"])
+    scanOpts cursor0 sOpts1 >>=? (cursor0, ["key"])
+    scanOpts cursor0 sOpts2 >>=? (cursor0, [])
     sadd "set" ["1"]        >>=? 1
     sscan "set" cursor0     >>=? (cursor0, ["1"])
     hset "hash" "k" "v"     >>=? True
     hscan "hash" cursor0    >>=? (cursor0, [("k", "v")])
     zadd "zset" [(42, "2")] >>=? 1
     zscan "zset" cursor0    >>=? (cursor0, [("2", 42)])
+    where sOpts1 = defaultScanOpts { scanMatch = Just "k*" }
+          sOpts2 = defaultScanOpts { scanMatch = Just "not*"}
 
 testZrangelex ::Test
 testZrangelex = testCase "zrangebylex" $ do


Reply via email to