Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-uuid-types for openSUSE:Factory
checked in at 2021-05-05 20:40:35
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-uuid-types (Old)
and /work/SRC/openSUSE:Factory/.ghc-uuid-types.new.2988 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-uuid-types"
Wed May 5 20:40:35 2021 rev:16 rq:890704 version:1.0.5
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-uuid-types/ghc-uuid-types.changes
2021-03-10 08:57:50.074924859 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-uuid-types.new.2988/ghc-uuid-types.changes
2021-05-05 20:40:59.538656410 +0200
@@ -1,0 +2,8 @@
+Mon May 3 08:39:22 UTC 2021 - psim...@suse.com
+
+- Update uuid-types to version 1.0.5.
+ ## 1.0.5 (2021-05-03)
+
+ - Add (Template Haskell) `Lift UUID` instance
+
+-------------------------------------------------------------------
Old:
----
uuid-types-1.0.4.tar.gz
New:
----
uuid-types-1.0.5.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-uuid-types.spec ++++++
--- /var/tmp/diff_new_pack.jWujSO/_old 2021-05-05 20:41:00.014654315 +0200
+++ /var/tmp/diff_new_pack.jWujSO/_new 2021-05-05 20:41:00.014654315 +0200
@@ -19,7 +19,7 @@
%global pkg_name uuid-types
%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 1.0.4
+Version: 1.0.5
Release: 0
Summary: Type definitions for Universally Unique Identifiers
License: BSD-3-Clause
@@ -32,6 +32,7 @@
BuildRequires: ghc-hashable-devel
BuildRequires: ghc-random-devel
BuildRequires: ghc-rpm-macros
+BuildRequires: ghc-template-haskell-devel
BuildRequires: ghc-text-devel
ExcludeArch: %{ix86}
%if %{with tests}
++++++ uuid-types-1.0.4.tar.gz -> uuid-types-1.0.5.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/uuid-types-1.0.4/ChangeLog.md
new/uuid-types-1.0.5/ChangeLog.md
--- old/uuid-types-1.0.4/ChangeLog.md 2001-09-09 03:46:40.000000000 +0200
+++ new/uuid-types-1.0.5/ChangeLog.md 2001-09-09 03:46:40.000000000 +0200
@@ -1,3 +1,7 @@
+## 1.0.5 (2021-05-03)
+
+- Add (Template Haskell) `Lift UUID` instance
+
## 1.0.4.0
- Declare `Data.UUID.Types` module "`Trustworthy`" with respect to SafeHaskell.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/uuid-types-1.0.4/src/Data/UUID/Types/Internal.hs
new/uuid-types-1.0.5/src/Data/UUID/Types/Internal.hs
--- old/uuid-types-1.0.4/src/Data/UUID/Types/Internal.hs 2001-09-09
03:46:40.000000000 +0200
+++ new/uuid-types-1.0.5/src/Data/UUID/Types/Internal.hs 2001-09-09
03:46:40.000000000 +0200
@@ -5,6 +5,10 @@
#if __GLASGOW_HASKELL__ >= 704
{-# LANGUAGE Unsafe #-}
#endif
+#if __GLASGOW_HASKELL__ >=800
+{-# LANGUAGE DeriveLift #-}
+{-# LANGUAGE StandaloneDeriving #-}
+#endif
{-# OPTIONS_HADDOCK hide #-}
@@ -79,6 +83,12 @@
import System.Random (Random (..), next)
#endif
+#if __GLASGOW_HASKELL__ >=800
+import Language.Haskell.TH.Syntax (Lift)
+#else
+import Language.Haskell.TH (appE, varE)
+import Language.Haskell.TH.Syntax (Lift (..), mkNameG_v, Lit (IntegerL), Exp
(LitE))
+#endif
-- | Type representing <https://en.wikipedia.org/wiki/UUID Universally Unique
Identifiers (UUID)> as specified in
-- <http://tools.ietf.org/html/rfc4122 RFC 4122>.
@@ -619,3 +629,20 @@
{-# INLINE unsafeShiftL #-}
unsafeShiftL = shiftL
#endif
+
+#if __GLASGOW_HASKELL__ >=800
+deriving instance Lift UUID
+#else
+instance Lift UUID where
+ lift (UUID w1 w2) = varE fromWords64Name `appE` liftW64 w1 `appE` liftW64
w2
+ where
+ fromWords64Name = mkNameG_v currentPackageKey
"Data.UUID.Types.Internal" "fromWords64"
+ liftW64 x = return (LitE (IntegerL (fromIntegral x)))
+
+currentPackageKey :: String
+#ifdef CURRENT_PACKAGE_KEY
+currentPackageKey = CURRENT_PACKAGE_KEY
+#else
+currentPackageKey = "uuid-types-1.0.5"
+#endif
+#endif
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/uuid-types-1.0.4/tests/TestUUID.hs
new/uuid-types-1.0.5/tests/TestUUID.hs
--- old/uuid-types-1.0.4/tests/TestUUID.hs 2001-09-09 03:46:40.000000000
+0200
+++ new/uuid-types-1.0.5/tests/TestUUID.hs 2001-09-09 03:46:40.000000000
+0200
@@ -1,4 +1,5 @@
{-# LANGUAGE ViewPatterns #-}
+{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
@@ -40,6 +41,11 @@
testCase "nil bytes" $ U.toByteString U.nil @?= BL.pack (replicate 16 0)
]
+test_lift :: Test
+test_lift = testCase "TH.Lift" $ do
+ let uuid = U.fromWords64 123456789 987654321
+ uuid @?= $( [| uuid |] )
+
test_conv :: Test
test_conv = testGroup "conversions" [
testCase "conv bytes to string" $
@@ -176,6 +182,7 @@
[ [
test_null,
test_nil,
+ test_lift,
test_conv,
test_fromByteString,
test_fromWords,
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/uuid-types-1.0.4/uuid-types.cabal
new/uuid-types-1.0.5/uuid-types.cabal
--- old/uuid-types-1.0.4/uuid-types.cabal 2001-09-09 03:46:40.000000000
+0200
+++ new/uuid-types-1.0.5/uuid-types.cabal 2001-09-09 03:46:40.000000000
+0200
@@ -1,6 +1,6 @@
cabal-version: 1.12
name: uuid-types
-version: 1.0.4
+version: 1.0.5
copyright:
(c) 2017-2018 Herbert Valerio Riedel
(c) 2008-2014 Antoine Latter
@@ -45,13 +45,14 @@
library
build-depends:
- base >=4.5 && <5
- , binary >=0.5.1.0 && <0.9
- , bytestring >=0.9.2.1 && <0.12
- , deepseq >=1.3.0.0 && <1.5
- , hashable >=1.2.7.0 && <1.4
- , random >=1.1 && <1.3
- , text >=1.2.3.0 && <1.3
+ base >=4.5 && <5
+ , binary >=0.5.1.0 && <0.9
+ , bytestring >=0.9.2.1 && <0.12
+ , deepseq >=1.3.0.0 && <1.5
+ , hashable >=1.2.7.0 && <1.4
+ , random >=1.1 && <1.3
+ , template-haskell >=2.7.0.0 && <2.18
+ , text >=1.2.3.0 && <1.3
exposed-modules: Data.UUID.Types
@@ -82,6 +83,7 @@
, binary
, bytestring
, uuid-types
+ , template-haskell
-- deps w/o inherited constraints
build-depends:
