Hello community, here is the log from the commit of package ghc-ObjectName for openSUSE:Factory checked in at 2015-12-29 12:58:52 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-ObjectName (Old) and /work/SRC/openSUSE:Factory/.ghc-ObjectName.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-ObjectName" Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-ObjectName/ghc-ObjectName.changes 2015-05-21 08:14:45.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-ObjectName.new/ghc-ObjectName.changes 2015-12-29 12:58:54.000000000 +0100 @@ -1,0 +2,5 @@ +Thu Dec 24 08:58:49 UTC 2015 - [email protected] + +- update to 1.1.0.1 + +------------------------------------------------------------------- Old: ---- ObjectName-1.1.0.0.tar.gz New: ---- ObjectName-1.1.0.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-ObjectName.spec ++++++ --- /var/tmp/diff_new_pack.n9xolQ/_old 2015-12-29 12:58:55.000000000 +0100 +++ /var/tmp/diff_new_pack.n9xolQ/_new 2015-12-29 12:58:55.000000000 +0100 @@ -15,15 +15,16 @@ # Please submit bugfixes or comments via http://bugs.opensuse.org/ # + %global pkg_name ObjectName -Name: ghc-%{pkg_name} -Version: 1.1.0.0 -Release: 1 +Name: ghc-ObjectName +Version: 1.1.0.1 +Release: 0 Summary: Explicitly handled object names +License: BSD-3-Clause Group: System/Libraries -License: BSD-3-Clause Url: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{version}.tar.gz BuildRoot: %{_tmppath}/%{name}-%{version}-build @@ -55,33 +56,26 @@ %prep %setup -q -n %{pkg_name}-%{version} - %build sed -i 's/\r//' LICENSE sed -i 's/\r//' README.md %ghc_lib_build - %install %ghc_lib_install - %post devel %ghc_pkg_recache - %postun devel %ghc_pkg_recache - %files -f %{name}.files %defattr(-,root,root,-) %doc LICENSE - %files devel -f %{name}-devel.files %defattr(-,root,root,-) %doc README.md - %changelog ++++++ ObjectName-1.1.0.0.tar.gz -> ObjectName-1.1.0.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ObjectName-1.1.0.0/LICENSE new/ObjectName-1.1.0.1/LICENSE --- old/ObjectName-1.1.0.0/LICENSE 2015-03-09 22:27:14.000000000 +0100 +++ new/ObjectName-1.1.0.1/LICENSE 2015-12-22 09:32:17.000000000 +0100 @@ -1,28 +1,28 @@ -Copyright (c) 2014, Sven Panne -All rights reserved. - -Redistribution and use in source and binary forms, with or without -modification, are permitted provided that the following conditions are met: - -1. Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. - -2. 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. - -3. Neither the name of the author nor the names of its 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. +Copyright (c) 2014, Sven Panne +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are met: + +1. Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. + +2. 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. + +3. Neither the name of the author nor the names of its 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/ObjectName-1.1.0.0/ObjectName.cabal new/ObjectName-1.1.0.1/ObjectName.cabal --- old/ObjectName-1.1.0.0/ObjectName.cabal 2015-03-09 22:27:14.000000000 +0100 +++ new/ObjectName-1.1.0.1/ObjectName.cabal 2015-12-22 09:32:17.000000000 +0100 @@ -1,34 +1,34 @@ -name: ObjectName -version: 1.1.0.0 -synopsis: Explicitly handled object names -description: - This tiny package contains the class ObjectName, which corresponds to the - general notion of explicitly handled identifiers for API objects, e.g. a - texture object name in OpenGL or a buffer object name in OpenAL. -homepage: https://github.com/svenpanne/ObjectName -bug-reports: https://github.com/svenpanne/ObjectName/issues -copyright: Copyright (C) 2014-2015 Sven Panne -license: BSD3 -license-file: LICENSE -author: Sven Panne -maintainer: Sven Panne <[email protected]> -category: Data -build-type: Simple -cabal-version: >=1.10 -extra-source-files: - README.md - -library - exposed-modules: - Data.ObjectName - build-depends: - base >= 4 && < 5, - transformers >= 0.2 && < 0.5 - default-language: Haskell2010 - other-extensions: CPP - hs-Source-Dirs: src - ghc-options: -Wall - -source-repository head - type: git - location: https://github.com/haskell-opengl/ObjectName.git +name: ObjectName +version: 1.1.0.1 +synopsis: Explicitly handled object names +description: + This tiny package contains the class ObjectName, which corresponds to the + general notion of explicitly handled identifiers for API objects, e.g. a + texture object name in OpenGL or a buffer object name in OpenAL. +homepage: https://github.com/svenpanne/ObjectName +bug-reports: https://github.com/svenpanne/ObjectName/issues +copyright: Copyright (C) 2014-2015 Sven Panne +license: BSD3 +license-file: LICENSE +author: Sven Panne +maintainer: Sven Panne <[email protected]> +category: Data +build-type: Simple +cabal-version: >=1.10 +extra-source-files: + README.md + +library + exposed-modules: + Data.ObjectName + build-depends: + base >= 4 && < 5, + transformers >= 0.2 && < 0.6 + default-language: Haskell2010 + other-extensions: CPP + hs-Source-Dirs: src + ghc-options: -Wall + +source-repository head + type: git + location: https://github.com/haskell-opengl/ObjectName.git diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ObjectName-1.1.0.0/README.md new/ObjectName-1.1.0.1/README.md --- old/ObjectName-1.1.0.0/README.md 2015-03-09 22:27:14.000000000 +0100 +++ new/ObjectName-1.1.0.1/README.md 2015-12-22 09:32:17.000000000 +0100 @@ -1 +1 @@ -[](https://hackage.haskell.org/package/ObjectName) [](https://travis-ci.org/svenpanne/ObjectName) +[](https://hackage.haskell.org/package/ObjectName) [](https://travis-ci.org/svenpanne/ObjectName) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ObjectName-1.1.0.0/Setup.hs new/ObjectName-1.1.0.1/Setup.hs --- old/ObjectName-1.1.0.0/Setup.hs 2015-03-09 22:27:14.000000000 +0100 +++ new/ObjectName-1.1.0.1/Setup.hs 2015-12-22 09:32:17.000000000 +0100 @@ -1,2 +1,2 @@ -import Distribution.Simple -main = defaultMain +import Distribution.Simple +main = defaultMain diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ObjectName-1.1.0.0/src/Data/ObjectName.hs new/ObjectName-1.1.0.1/src/Data/ObjectName.hs --- old/ObjectName-1.1.0.0/src/Data/ObjectName.hs 2015-03-09 22:27:14.000000000 +0100 +++ new/ObjectName-1.1.0.1/src/Data/ObjectName.hs 2015-12-22 09:32:17.000000000 +0100 @@ -1,73 +1,73 @@ -{-# LANGUAGE CPP #-} --------------------------------------------------------------------------------- --- | --- Module : Data.ObjectName --- Copyright : (c) Sven Panne 2015 --- License : BSD3 --- --- Maintainer : Sven Panne <[email protected]> --- Stability : stable --- Portability : portable --- --- Object names are explicitly handled identifiers for API objects, e.g. a --- texture object name in OpenGL or a buffer object name in OpenAL. They come in --- two flavors: If a name can exist on its own without an associated object, we --- have a 'GeneratableObjectName', otherwise we have an 'ObjectName'. --- --------------------------------------------------------------------------------- - -module Data.ObjectName ( - ObjectName(..), GeneratableObjectName(..) -) where - -import Control.Monad ( replicateM ) -import Control.Monad.IO.Class ( MonadIO(..) ) - --------------------------------------------------------------------------------- - --- | An 'ObjectName' is an explicitly handled identifier for API objects, e.g. a --- texture object name in OpenGL or a buffer object name in OpenAL. -#if __GLASGOW_HASKELL__ < 708 --- --- Minimal complete definition: 'isObjectName' plus one of 'deleteObjectName' or --- 'deleteObjectNames'. -#endif - -class ObjectName a where -#if __GLASGOW_HASKELL__ >= 708 - {-# MINIMAL isObjectName, ( deleteObjectName | deleteObjectNames ) #-} -#endif - -- | Test if the given object name is currently in use, i.e. test if it has - -- been generated, but not been deleted so far. - isObjectName :: MonadIO m => a -> m Bool - - -- | Make the given object name available again, declaring it as unused. - deleteObjectName :: MonadIO m => a -> m () - deleteObjectName = deleteObjectNames . (:[]) - - -- | Bulk version of 'deleteObjectName'. - deleteObjectNames:: MonadIO m => [a] -> m () - deleteObjectNames = mapM_ deleteObjectName - --- | A 'GeneratableObjectName' is an 'ObjectName' which can be generated without --- creating an associated object at the same time, e.g. an OpenGL buffer object --- name. Note that e.g. OpenGL program object names do not fall into this --- category, because you can only create such a name together with a program --- object itself. -#if __GLASGOW_HASKELL__ < 708 --- --- Minimal complete definition: One of 'genObjectName' or 'genObjectNames'. -#endif - -class ObjectName a => GeneratableObjectName a where -#if __GLASGOW_HASKELL__ >= 708 - {-# MINIMAL genObjectName | genObjectNames #-} -#endif - -- | Generate a new unused object name. By generating the name, it becomes - -- used. - genObjectName :: MonadIO m => m a - genObjectName = liftIO . fmap head . genObjectNames $ 1 - - -- | Bulk version of 'genObjectName'. - genObjectNames :: MonadIO m => Int -> m [a] - genObjectNames = flip replicateM genObjectName +{-# LANGUAGE CPP #-} +-------------------------------------------------------------------------------- +-- | +-- Module : Data.ObjectName +-- Copyright : (c) Sven Panne 2015 +-- License : BSD3 +-- +-- Maintainer : Sven Panne <[email protected]> +-- Stability : stable +-- Portability : portable +-- +-- Object names are explicitly handled identifiers for API objects, e.g. a +-- texture object name in OpenGL or a buffer object name in OpenAL. They come in +-- two flavors: If a name can exist on its own without an associated object, we +-- have a 'GeneratableObjectName', otherwise we have an 'ObjectName'. +-- +-------------------------------------------------------------------------------- + +module Data.ObjectName ( + ObjectName(..), GeneratableObjectName(..) +) where + +import Control.Monad ( replicateM ) +import Control.Monad.IO.Class ( MonadIO(..) ) + +-------------------------------------------------------------------------------- + +-- | An 'ObjectName' is an explicitly handled identifier for API objects, e.g. a +-- texture object name in OpenGL or a buffer object name in OpenAL. +#if __GLASGOW_HASKELL__ < 708 +-- +-- Minimal complete definition: 'isObjectName' plus one of 'deleteObjectName' or +-- 'deleteObjectNames'. +#endif + +class ObjectName a where +#if __GLASGOW_HASKELL__ >= 708 + {-# MINIMAL isObjectName, ( deleteObjectName | deleteObjectNames ) #-} +#endif + -- | Test if the given object name is currently in use, i.e. test if it has + -- been generated, but not been deleted so far. + isObjectName :: MonadIO m => a -> m Bool + + -- | Make the given object name available again, declaring it as unused. + deleteObjectName :: MonadIO m => a -> m () + deleteObjectName = deleteObjectNames . (:[]) + + -- | Bulk version of 'deleteObjectName'. + deleteObjectNames:: MonadIO m => [a] -> m () + deleteObjectNames = mapM_ deleteObjectName + +-- | A 'GeneratableObjectName' is an 'ObjectName' which can be generated without +-- creating an associated object at the same time, e.g. an OpenGL buffer object +-- name. Note that e.g. OpenGL program object names do not fall into this +-- category, because you can only create such a name together with a program +-- object itself. +#if __GLASGOW_HASKELL__ < 708 +-- +-- Minimal complete definition: One of 'genObjectName' or 'genObjectNames'. +#endif + +class ObjectName a => GeneratableObjectName a where +#if __GLASGOW_HASKELL__ >= 708 + {-# MINIMAL genObjectName | genObjectNames #-} +#endif + -- | Generate a new unused object name. By generating the name, it becomes + -- used. + genObjectName :: MonadIO m => m a + genObjectName = liftIO . fmap head . genObjectNames $ 1 + + -- | Bulk version of 'genObjectName'. + genObjectNames :: MonadIO m => Int -> m [a] + genObjectNames = flip replicateM genObjectName
