Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-data-default for
openSUSE:Factory checked in at 2024-10-28 15:18:18
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-data-default (Old)
and /work/SRC/openSUSE:Factory/.ghc-data-default.new.2020 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-data-default"
Mon Oct 28 15:18:18 2024 rev:15 rq:1218544 version:0.7.1.3
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-data-default/ghc-data-default.changes
2023-04-04 21:19:44.068928007 +0200
+++
/work/SRC/openSUSE:Factory/.ghc-data-default.new.2020/ghc-data-default.changes
2024-10-28 15:20:07.638968853 +0100
@@ -1,0 +2,6 @@
+Thu Oct 17 19:18:51 UTC 2024 - Peter Simons <[email protected]>
+
+- Update data-default to version 0.7.1.3.
+ Upstream does not provide a change log file.
+
+-------------------------------------------------------------------
Old:
----
data-default-0.7.1.1.tar.gz
New:
----
data-default-0.7.1.3.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-data-default.spec ++++++
--- /var/tmp/diff_new_pack.N66U3s/_old 2024-10-28 15:20:08.831018496 +0100
+++ /var/tmp/diff_new_pack.N66U3s/_new 2024-10-28 15:20:08.831018496 +0100
@@ -1,7 +1,7 @@
#
# spec file for package ghc-data-default
#
-# Copyright (c) 2023 SUSE LLC
+# Copyright (c) 2024 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,8 +18,9 @@
%global pkg_name data-default
%global pkgver %{pkg_name}-%{version}
+%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 0.7.1.1
+Version: 0.7.1.3
Release: 0
Summary: A class for types with a default value
License: BSD-3-Clause
@@ -38,9 +39,19 @@
BuildRequires: ghc-data-default-instances-old-locale-prof
BuildRequires: ghc-rpm-macros
ExcludeArch: %{ix86}
+%if %{with tests}
+BuildRequires: ghc-containers-devel
+BuildRequires: ghc-containers-prof
+BuildRequires: ghc-mtl-devel
+BuildRequires: ghc-mtl-prof
+BuildRequires: ghc-old-locale-devel
+BuildRequires: ghc-old-locale-prof
+%endif
%description
-A class for types with a default value.
+This module defines a class for types with a default value. Instances are
+provided for '()', 'Data.Set.Set', 'Data.Map.Map', 'Int', 'Integer', 'Float',
+'Double', and many others.
%package devel
Summary: Haskell %{pkg_name} library development files
@@ -77,6 +88,9 @@
%install
%ghc_lib_install
+%check
+%cabal_test
+
%post devel
%ghc_pkg_recache
++++++ data-default-0.7.1.1.tar.gz -> data-default-0.7.1.3.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/data-default-0.7.1.1/Data/Default.hs
new/data-default-0.7.1.3/Data/Default.hs
--- old/data-default-0.7.1.1/Data/Default.hs 2016-06-26 01:01:25.000000000
+0200
+++ new/data-default-0.7.1.3/Data/Default.hs 2001-09-09 03:46:40.000000000
+0200
@@ -1,38 +1,47 @@
{-
-Copyright (c) 2013 Lukas Mai
+Copyright (c) 2013, Lukas Mai
All rights reserved.
-Redistribution and use in source and binary forms, with or without
modification,
-are permitted provided that the following conditions are met:
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
-* Redistributions of source code must retain the above copyright notice, this
- list of conditions and the following disclaimer.
-* Redistributions in binary form must reproduce the above copyright notice,
- this list of conditions and the following disclaimer in the documentation
- and/or other materials provided with the distribution.
-* Neither the name of the author nor the names of his contributors
- may be used to endorse or promote products derived from this software
- without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY LUKAS MAI AND CONTRIBUTORS "AS IS" AND ANY
-EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY
-DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
-ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ * Redistributions of source code must retain the above copyright
+ notice, this list of conditions and the following disclaimer.
+
+ * Redistributions in binary form must reproduce the above
+ copyright notice, this list of conditions and the following
+ disclaimer in the documentation and/or other materials provided
+ with the distribution.
+
+ * Neither the name of Lukas Mai nor the names of other
+ contributors may be used to endorse or promote products derived
+ from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-}
+{-|
+Module : Data.Default
+Description : A class for types with a default value.
+
+This module defines a class for types with a default value. Instances are
+provided for '()', 'Data.Set.Set', 'Data.Map.Map', 'Int', 'Integer',
+'Float', 'Double', and many others (see below).
+-}
module Data.Default (
--- | This module defines a class for types with a default value. Instances are
--- provided for '()', 'Data.Set.Set', 'Data.Map.Map', 'Int', 'Integer',
--- 'Float', 'Double', and many others (see below).
Default(..)
) where
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/data-default-0.7.1.1/LICENSE
new/data-default-0.7.1.3/LICENSE
--- old/data-default-0.7.1.1/LICENSE 2016-06-26 01:01:25.000000000 +0200
+++ new/data-default-0.7.1.3/LICENSE 2001-09-09 03:46:40.000000000 +0200
@@ -1,26 +1,30 @@
-Copyright (c) 2013 Lukas Mai
+Copyright (c) 2013, Lukas Mai
All rights reserved.
-Redistribution and use in source and binary forms, with or without
modification,
-are permitted provided that the following conditions are met:
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
-* Redistributions of source code must retain the above copyright notice, this
- list of conditions and the following disclaimer.
-* Redistributions in binary form must reproduce the above copyright notice,
- this list of conditions and the following disclaimer in the documentation
- and/or other materials provided with the distribution.
-* Neither the name of the author nor the names of his contributors
- may be used to endorse or promote products derived from this software
- without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
-FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+ * Redistributions of source code must retain the above copyright
+ notice, this list of conditions and the following disclaimer.
+
+ * Redistributions in binary form must reproduce the above
+ copyright notice, this list of conditions and the following
+ disclaimer in the documentation and/or other materials provided
+ with the distribution.
+
+ * Neither the name of Lukas Mai nor the names of other
+ contributors may be used to endorse or promote products derived
+ from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/data-default-0.7.1.1/data-default.cabal
new/data-default-0.7.1.3/data-default.cabal
--- old/data-default-0.7.1.1/data-default.cabal 2016-06-26 01:01:25.000000000
+0200
+++ new/data-default-0.7.1.3/data-default.cabal 2001-09-09 03:46:40.000000000
+0200
@@ -1,21 +1,34 @@
-Name: data-default
-Version: 0.7.1.1
-Cabal-Version: >= 1.6
-Category: Data
-Synopsis: A class for types with a default value
-Build-Type: Simple
-License: BSD3
-License-File: LICENSE
-Author: Lukas Mai
-Maintainer: <[email protected]>
+cabal-version: 3.0
+name: data-default
+version: 0.7.1.3
+category: Data
+synopsis: A class for types with a default value
+description:
+ This module defines a class for types with a default value. Instances are
+ provided for '()', 'Data.Set.Set', 'Data.Map.Map', 'Int', 'Integer',
+ 'Float', 'Double', and many others.
+build-type: Simple
+license: BSD-3-Clause
+license-file: LICENSE
+copyright: (c) 2013 Lukas Mai
+author: Lukas Mai
+maintainer: <[email protected]>
source-repository head
- type: git
- location: https://github.com/mauke/data-default
+ type: git
+ location: https://github.com/mauke/data-default
-Library
- Build-Depends: base >=2 && <5, data-default-class >=0.1.2.0,
- data-default-instances-containers,
- data-default-instances-dlist,
- data-default-instances-old-locale
- Exposed-Modules: Data.Default
+library
+ build-depends: base >=2 && <5, data-default-class ^>=0.1.2.1,
+ data-default-instances-containers ^>=0.1.0.2,
+ data-default-instances-dlist ^>=0.0.1.1,
+ data-default-instances-old-locale ^>=0.0.1.1
+ exposed-modules: Data.Default
+ default-language: Haskell98
+
+test-suite test
+ type: exitcode-stdio-1.0
+ main-is: basics.hs
+ build-depends: base >=2 && <5, containers, data-default, mtl,
old-locale
+ hs-source-dirs: t
+ default-language: Haskell98
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/data-default-0.7.1.1/t/basics.hs
new/data-default-0.7.1.3/t/basics.hs
--- old/data-default-0.7.1.1/t/basics.hs 1970-01-01 01:00:00.000000000
+0100
+++ new/data-default-0.7.1.3/t/basics.hs 2001-09-09 03:46:40.000000000
+0200
@@ -0,0 +1,98 @@
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+
+import Data.Default
+import Data.Int
+import Data.Word
+import Data.Monoid
+import Data.Complex
+import System.Locale
+import qualified Data.Sequence as Seq
+import qualified Data.Map as M
+import qualified Data.Set as S
+import qualified Data.IntMap as IM
+import qualified Data.IntSet as IS
+import Data.Tree (Tree(..))
+
+import Control.Monad (when)
+import Control.Monad.Reader
+import Data.IORef
+import System.Exit (exitFailure)
+import System.IO
+
+newtype Test a = Test{ unTest :: ReaderT (IORef Int) IO a }
+ deriving (Functor, Applicative, Monad, MonadIO, MonadReader (IORef Int))
+
+runTest :: (MonadIO m) => Test a -> m a
+runTest t = liftIO $ do
+ hSetBuffering stdout LineBuffering
+ r <- newIORef 1
+ runReaderT (unTest t) r
+
+instance (Default a) => Default (Test a) where
+ def = return def
+
+withRef :: (IORef Int -> IO a) -> Test a
+withRef f = do
+ r <- ask
+ liftIO (f r)
+
+planTests :: Int -> Test ()
+planTests n = liftIO $ do
+ putStrLn $ "1.." ++ show n
+
+ok :: Bool -> String -> Test ()
+ok b s = withRef $ \r -> do
+ c <- atomicModifyIORef r ((,) =<< succ)
+ putStrLn $ (if b then "" else "not ") ++ "ok " ++ show c ++ " - " ++ s
+ when (not b)
+ exitFailure
+
+is {-, isNot-} :: (Show a, Eq a) => a -> a -> Test ()
+is x y = ok (x == y) (show x ++ " == " ++ show y)
+-- isNot x y = ok (x /= y) (show x ++ " /= " ++ show y)
+
+-- diag :: String -> Test ()
+-- diag s = liftIO $ do
+-- putStrLn $ "# " ++ s
+
+main :: IO ()
+main = runTest $ do
+ planTests 37
+ sequence_ [def, liftIO def, return ()]
+ is (def (length :: [a] -> Int)) (0 :: Int)
+ is def ()
+ is def (Nothing :: Maybe (Int, Ordering, [Float]))
+ is def ""
+ is def (S.empty :: S.Set ())
+ is def (M.empty :: M.Map () ())
+ is def IS.empty
+ is def (IM.empty :: IM.IntMap ())
+ is def (Seq.empty :: Seq.Seq ())
+ is def (Node (0 :: Complex Float) [])
+ is def EQ
+ is def (Any False)
+ is def (All True)
+ is def (Last Nothing :: Last ())
+ is def (First Nothing :: First ())
+ is def (Sum (0 :: Integer))
+ is def (Product (1 :: Rational))
+ is def (0 :: Int)
+ is def (0 :: Integer)
+ is def (0 :: Float)
+ is def (0 :: Double)
+ is def (0 :: Rational)
+ is def (0 :: Complex Double)
+ is def (0 :: Int8)
+ is def (0 :: Int16)
+ is def (0 :: Int32)
+ is def (0 :: Int64)
+ is def (0 :: Word)
+ is def (0 :: Word8)
+ is def (0 :: Word16)
+ is def (0 :: Word32)
+ is def (0 :: Word64)
+ is def ((def, def) :: ((), Maybe ((), ())))
+ is def ((def, def, def) :: ((), Maybe ((), ()), [Ordering]))
+ is def ((def, def, def, def) :: ((), Maybe ((), ()), [Ordering], Float))
+ is def ((def, def, def, def, def, def, def) :: ((), (), (), (), (), (),
()))
+ is def defaultTimeLocale
