Hello community,
here is the log from the commit of package ghc-StateVar for openSUSE:Factory
checked in at 2019-06-12 13:18:24
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-StateVar (Old)
and /work/SRC/openSUSE:Factory/.ghc-StateVar.new.4811 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-StateVar"
Wed Jun 12 13:18:24 2019 rev:12 rq:709195 version:1.2
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-StateVar/ghc-StateVar.changes
2018-10-25 08:22:11.427915526 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-StateVar.new.4811/ghc-StateVar.changes
2019-06-12 13:18:26.660575081 +0200
@@ -1,0 +2,8 @@
+Tue Jun 4 02:02:20 UTC 2019 - psim...@suse.com
+
+- Update StateVar to version 1.2.
+ 1.2
+ ---
+ * Added instances for `ForeignPtr`.
+
+-------------------------------------------------------------------
Old:
----
StateVar-1.1.1.1.tar.gz
New:
----
StateVar-1.2.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-StateVar.spec ++++++
--- /var/tmp/diff_new_pack.Li23Rr/_old 2019-06-12 13:18:27.244574814 +0200
+++ /var/tmp/diff_new_pack.Li23Rr/_new 2019-06-12 13:18:27.244574814 +0200
@@ -1,7 +1,7 @@
#
# spec file for package ghc-StateVar
#
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,7 +18,7 @@
%global pkg_name StateVar
Name: ghc-%{pkg_name}
-Version: 1.1.1.1
+Version: 1.2
Release: 0
Summary: State variables
License: BSD-3-Clause
++++++ StateVar-1.1.1.1.tar.gz -> StateVar-1.2.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/StateVar-1.1.1.1/CHANGELOG.md
new/StateVar-1.2/CHANGELOG.md
--- old/StateVar-1.1.1.1/CHANGELOG.md 2018-08-14 08:22:08.000000000 +0200
+++ new/StateVar-1.2/CHANGELOG.md 2001-09-09 03:46:40.000000000 +0200
@@ -1,3 +1,7 @@
+1.2
+---
+* Added instances for `ForeignPtr`.
+
1.1.1.1
-------
* Relaxed upper version bound for `stm`.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/StateVar-1.1.1.1/StateVar.cabal
new/StateVar-1.2/StateVar.cabal
--- old/StateVar-1.1.1.1/StateVar.cabal 2018-08-14 08:22:16.000000000 +0200
+++ new/StateVar-1.2/StateVar.cabal 2001-09-09 03:46:40.000000000 +0200
@@ -1,5 +1,5 @@
name: StateVar
-version: 1.1.1.1
+version: 1.2
synopsis: State variables
description:
This package contains state variables, which are references in the IO monad,
@@ -23,8 +23,8 @@
GHC == 8.0.2
GHC == 8.2.2
GHC == 8.4.3
- GHC == 8.6.1
- GHC == 8.7.*
+ GHC == 8.6.5
+ GHC == 8.8.1
cabal-version: >= 1.10
extra-source-files:
README.md
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/StateVar-1.1.1.1/src/Data/StateVar.hs
new/StateVar-1.2/src/Data/StateVar.hs
--- old/StateVar-1.1.1.1/src/Data/StateVar.hs 2018-04-20 11:18:21.000000000
+0200
+++ new/StateVar-1.2/src/Data/StateVar.hs 2001-09-09 03:46:40.000000000
+0200
@@ -10,7 +10,7 @@
--------------------------------------------------------------------------------
-- |
-- Module : Data.StateVar
--- Copyright : (c) Edward Kmett 2014-2015, Sven Panne 2009-2018
+-- Copyright : (c) Edward Kmett 2014-2019, Sven Panne 2009-2018
-- License : BSD3
--
-- Maintainer : Sven Panne <svenpa...@gmail.com>
@@ -81,6 +81,7 @@
import Control.Monad.IO.Class
import Data.IORef
import Data.Typeable
+import Foreign.ForeignPtr
import Foreign.Ptr
import Foreign.Storable
#if MIN_VERSION_base(4,12,0)
@@ -195,6 +196,10 @@
p $= a = liftIO $ atomically $ writeTVar p a
{-# INLINE ($=) #-}
+instance Storable a => HasSetter (ForeignPtr a) a where
+ p $= a = liftIO $ withForeignPtr p ($= a)
+ {-# INLINE ($=) #-}
+
--------------------------------------------------------------------
-- * HasUpdate
--------------------------------------------------------------------
@@ -252,6 +257,10 @@
a <- readTVar r
writeTVar r $! f a
+instance Storable a => HasUpdate (ForeignPtr a) a a where
+ p $~ f = liftIO $ withForeignPtr p ($~ f)
+ p $~! f = liftIO $ withForeignPtr p ($~! f)
+
--------------------------------------------------------------------
-- * HasGetter
--------------------------------------------------------------------
@@ -283,3 +292,8 @@
instance HasGetter (IORef a) a where
get = liftIO . readIORef
{-# INLINE get #-}
+
+instance Storable a => HasGetter (ForeignPtr a) a where
+ get p = liftIO $ withForeignPtr p get
+ {-# INLINE get #-}
+
