August 2017 - openSUSE Commits - openSUSE Mailing Lists

commit ghc-relational-record for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-relational-record for openSUSE:Factory checked in at 2017-08-31 20:58:30 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-relational-record (Old) and /work/SRC/openSUSE:Factory/.ghc-relational-record.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-relational-record" Thu Aug 31 20:58:30 2017 rev:5 rq:513469 version:0.1.8.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-relational-record/ghc-relational-record.changes 2017-04-14 13:38:43.654856319 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-relational-record.new/ghc-relational-record.changes 2017-08-31 20:58:30.354198656 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:28 UTC 2017 - psimons(a)suse.com + +- Update to version 0.1.8.0. + +------------------------------------------------------------------- Old: ---- relational-record-0.1.7.1.tar.gz New: ---- relational-record-0.1.8.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-relational-record.spec ++++++ --- /var/tmp/diff_new_pack.gyujjC/_old 2017-08-31 20:58:31.374055363 +0200 +++ /var/tmp/diff_new_pack.gyujjC/_new 2017-08-31 20:58:31.378054801 +0200 @@ -18,7 +18,7 @@ %global pkg_name relational-record Name: ghc-%{pkg_name} -Version: 0.1.7.1 +Version: 0.1.8.0 Release: 0 Summary: Meta package of Relational Record License: BSD-3-Clause @@ -26,6 +26,7 @@ Url: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… BuildRequires: ghc-Cabal-devel +BuildRequires: ghc-persistable-record-devel BuildRequires: ghc-persistable-types-HDBC-pg-devel BuildRequires: ghc-relational-query-HDBC-devel BuildRequires: ghc-relational-query-devel ++++++ relational-record-0.1.7.1.tar.gz -> relational-record-0.1.8.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-record-0.1.7.1/relational-record.cabal new/relational-record-0.1.8.0/relational-record.cabal --- old/relational-record-0.1.7.1/relational-record.cabal 2017-03-21 05:00:51.000000000 +0100 +++ new/relational-record-0.1.8.0/relational-record.cabal 2017-05-05 12:25:10.000000000 +0200 @@ -1,5 +1,5 @@ name: relational-record -version: 0.1.7.1 +version: 0.1.8.0 synopsis: Meta package of Relational Record description: Meta package to install Relational Record quickly homepage: http://khibino.github.io/haskell-relational-record/ @@ -17,7 +17,8 @@ Database.Relational.Query.Documentation build-depends: base <5 - , relational-query >=0.3 + , persistable-record >= 0.5 + , relational-query >=0.9 , relational-query-HDBC , persistable-types-HDBC-pg diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-record-0.1.7.1/src/Database/Relational/Query/Documentation.hs new/relational-record-0.1.8.0/src/Database/Relational/Query/Documentation.hs --- old/relational-record-0.1.7.1/src/Database/Relational/Query/Documentation.hs 2017-03-21 05:00:51.000000000 +0100 +++ new/relational-record-0.1.8.0/src/Database/Relational/Query/Documentation.hs 2017-05-05 12:25:10.000000000 +0200 @@ -70,6 +70,8 @@ -- *** Projection Operators -- $projectionOperators + ShowConstantTermsSQL, + value, values, (.=.), (.<.), (.<=.), (.>.), (.>=.), (.<>.), @@ -148,6 +150,11 @@ -- * Database Operations -- $databaseOperations + -- ** Conversion interfaces to communicate with database + -- $conversionInterfaces + FromSql, ToSql, + RecordFromSql, RecordToSql, + -- ** Generalized Statement -- $generalizedStmt prepareNoFetch, @@ -191,6 +198,7 @@ ) where import Database.Relational.Query +import Database.Record (RecordFromSql, FromSql, RecordToSql, ToSql) import Database.HDBC.Record {- $concepts @@ -198,7 +206,7 @@ [@"Database.Relational.Query"@] Relational Query Building DSL -[@"Database.HDBC.Record"@] Database Operation Actions +[@"Database.Record" and "Database.HDBC.Record"@] Database Operation Actions -} {- $queryBuildingDSL @@ -274,7 +282,10 @@ Some operators are defined to calculate projected values. For example, -'value' operator projects from Haskell value into 'Projection' corresponding SQL value, +'value' operator projects from Haskell value into 'Projection' corresponding SQL row value, +which projection is implicitly specified by 'ShowConstantTermsSQL' class. +Generic programming with default signature is available to define instances of 'ShowConstantTermsSQL'. + 'values' operator projects from Haskell list value into 'ListProjection', corresponding SQL set value, '.=.' operator is equal compare operation of projected value correspond to SQL =, '.+.' operator is plus operation of projected value correspond to SQL +, and so on. @@ -375,6 +386,16 @@ Some HDBC actions are defined for database side effects. -} +{- $conversionInterfaces +Some record conversion interfaces are defined to communicate with database. + +The conversions are implicitly specified by 'FromSql' class and 'ToSql' class. +Generic programming with default signature is available to define instances of 'FromSql' and 'ToSql'. + +The explicit definitions correnponsing those classes are 'RecordFromSql' and 'RecordToSql'. + +-} + {- $generalizedStmt Actions to manage generalized SQL statements. -}

1 0

commit ghc-relational-query-HDBC for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-relational-query-HDBC for openSUSE:Factory checked in at 2017-08-31 20:58:25 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-relational-query-HDBC (Old) and /work/SRC/openSUSE:Factory/.ghc-relational-query-HDBC.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-relational-query-HDBC" Thu Aug 31 20:58:25 2017 rev:3 rq:513468 version:0.6.4.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-relational-query-HDBC/ghc-relational-query-HDBC.changes 2017-06-04 01:58:42.233737576 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-relational-query-HDBC.new/ghc-relational-query-HDBC.changes 2017-08-31 20:58:26.346761712 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:03 UTC 2017 - psimons(a)suse.com + +- Update to version 0.6.4.0. + +------------------------------------------------------------------- Old: ---- relational-query-HDBC-0.6.0.3.tar.gz New: ---- relational-query-HDBC-0.6.4.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-relational-query-HDBC.spec ++++++ --- /var/tmp/diff_new_pack.Z03Jq3/_old 2017-08-31 20:58:27.366618420 +0200 +++ /var/tmp/diff_new_pack.Z03Jq3/_new 2017-08-31 20:58:27.406612800 +0200 @@ -18,7 +18,7 @@ %global pkg_name relational-query-HDBC Name: ghc-%{pkg_name} -Version: 0.6.0.3 +Version: 0.6.4.0 Release: 0 Summary: HDBC instance of relational-query and typed query interface for HDBC License: BSD-3-Clause @@ -80,5 +80,6 @@ %files devel -f %{name}-devel.files %defattr(-,root,root,-) +%doc ChangeLog.md %changelog ++++++ relational-query-HDBC-0.6.0.3.tar.gz -> relational-query-HDBC-0.6.4.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/ChangeLog.md new/relational-query-HDBC-0.6.4.0/ChangeLog.md --- old/relational-query-HDBC-0.6.0.3/ChangeLog.md 1970-01-01 01:00:00.000000000 +0100 +++ new/relational-query-HDBC-0.6.4.0/ChangeLog.md 2017-07-24 15:01:07.000000000 +0200 @@ -0,0 +1,45 @@ + + +## 0.6.4.0 + +- add new function name definitions to execute bounded statement. + +## 0.6.2.1 + +- add tested-with 8.2.1. + +## 0.6.2.0 + +- Apply generic instances. + +## 0.6.0.2 + +- Add tested-with. + +## 0.6.0.1 + +- Update compatibility for GHC 8. +- Drop old tests of Oracle. + +## 0.6.0.0 + +- Use updated template of persistable-record. +- Drop persistableSqlValue. + +## 0.5.0.0 + +- Use updated template of relational-query. +- Drop old examples of Oracle. + +## 0.4.0.0 + +- TH quotation of derive class names. + +## 0.3.0.0 + +- Hide chunksInsertActions. +- Add withPrepareDelete. + +## 0.2.0.0 + +- Add logging interface for schema driver. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/relational-query-HDBC.cabal new/relational-query-HDBC-0.6.4.0/relational-query-HDBC.cabal --- old/relational-query-HDBC-0.6.0.3/relational-query-HDBC.cabal 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/relational-query-HDBC.cabal 2017-07-24 15:01:07.000000000 +0200 @@ -1,5 +1,5 @@ name: relational-query-HDBC -version: 0.6.0.3 +version: 0.6.4.0 synopsis: HDBC instance of relational-query and typed query interface for HDBC description: This package contains the HDBC instance of relational-query and the typed query interface for HDBC. @@ -15,11 +15,13 @@ category: Database build-type: Simple cabal-version: >=1.10 -tested-with: GHC == 8.0.1, GHC == 8.0.2 +tested-with: GHC == 8.2.1 + , GHC == 8.0.1, GHC == 8.0.2 , GHC == 7.10.1, GHC == 7.10.2, GHC == 7.10.3 , GHC == 7.8.1, GHC == 7.8.2, GHC == 7.8.3, GHC == 7.8.4 , GHC == 7.6.1, GHC == 7.6.2, GHC == 7.6.3 , GHC == 7.4.1, GHC == 7.4.2 +extra-source-files: ChangeLog.md library exposed-modules: @@ -55,8 +57,8 @@ , th-data-compat , names-th - , persistable-record >= 0.4 && < 0.5 - , relational-query >= 0.8 + , persistable-record >= 0.5 + , relational-query >= 0.9 , relational-schemas , HDBC >=2 , HDBC-session diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Query/TH.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Query/TH.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Query/TH.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Query/TH.hs 2017-07-24 15:01:07.000000000 +0200 @@ -5,7 +5,7 @@ -- | -- Module : Database.HDBC.Query.TH --- Copyright : 2013 Kei Hibino +-- Copyright : 2013-2017 Kei Hibino -- License : BSD3 -- -- Maintainer : ex8k.hibino(a)gmail.com @@ -15,6 +15,7 @@ -- This module contains templates to generate Haskell record types -- and HDBC instances correspond to RDB table schema. module Database.HDBC.Query.TH ( + makeRelationalRecord, makeRecordPersistableDefault, defineTableDefault', @@ -37,9 +38,11 @@ import Language.Haskell.TH.Name.CamelCase (varCamelcaseName) import Language.Haskell.TH.Lib.Extra (reportWarning, reportError) -import Database.Record.TH (makeRecordPersistableWithSqlTypeDefault) -import qualified Database.Record.TH as Record -import Database.Relational.Query (Relation, Config, verboseAsCompilerWarning, defaultConfig, relationalQuerySQL) +import Database.Record (ToSql, FromSql) +import Database.Record.TH (recordTemplate, reifyRecordType) +import Database.Relational.Query + (Config, nameConfig, recordConfig, verboseAsCompilerWarning, defaultConfig, + Relation, relationalQuerySQL) import Database.Relational.Query.SQL (QuerySuffix) import qualified Database.Relational.Query.TH as Relational @@ -50,18 +53,29 @@ (runLog, newLogChan, takeLogs, Driver, getFields, getPrimaryKey) +defineInstancesForSqlValue :: TypeQ -- ^ Record type constructor. + -> Q [Dec] -- ^ Instance declarations. +defineInstancesForSqlValue typeCon = do + [d| instance FromSql SqlValue $typeCon + instance ToSql SqlValue $typeCon + |] + -- | Generate all persistable templates against defined record like type constructor. -makeRecordPersistableDefault :: Name -- ^ Type constructor name - -> Q [Dec] -- ^ Result declaration -makeRecordPersistableDefault recTypeName = do +makeRelationalRecord :: Name -- ^ Type constructor name + -> Q [Dec] -- ^ Result declaration +makeRelationalRecord recTypeName = do rr <- Relational.makeRelationalRecordDefault recTypeName - (pair, (_mayNs, cts)) <- Record.reifyRecordType recTypeName - let width = length cts - ps <- Record.makeRecordPersistableWithSqlType [t| SqlValue |] - (Record.persistableFunctionNamesDefault recTypeName) pair width + ((typeCon, _), _) <- reifyRecordType recTypeName + ps <- defineInstancesForSqlValue typeCon return $ rr ++ ps --- | Generate all HDBC templates about table except for constraint keys using default naming rule. +{-# DEPRECATED makeRecordPersistableDefault "Use makeRelationalRecord instead of this." #-} +-- | Deprecated. use 'makeRelationalRecord'. +makeRecordPersistableDefault :: Name -- ^ Type constructor name + -> Q [Dec] -- ^ Result declaration +makeRecordPersistableDefault = makeRelationalRecord + +-- | Generate all HDBC templates about table except for constraint keys. defineTableDefault' :: Config -- ^ Configuration to generate query with -> String -- ^ Schema name -> String -- ^ Table name @@ -70,10 +84,10 @@ -> Q [Dec] -- ^ Result declaration defineTableDefault' config schema table columns derives = do modelD <- Relational.defineTableTypesAndRecord config schema table columns derives - sqlvD <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] schema table $ length columns + sqlvD <- defineInstancesForSqlValue . fst $ recordTemplate (recordConfig $ nameConfig config) schema table return $ modelD ++ sqlvD --- | Generate all HDBC templates about table using default naming rule. +-- | Generate all HDBC templates about table. defineTableDefault :: Config -- ^ Configuration to generate query with -> String -- ^ Schema name -> String -- ^ Table name @@ -84,7 +98,7 @@ -> Q [Dec] -- ^ Result declaration defineTableDefault config schema table columns derives primary notNull = do modelD <- Relational.defineTable config schema table columns derives primary notNull - sqlvD <- makeRecordPersistableWithSqlTypeDefault [t| SqlValue |] schema table $ length columns + sqlvD <- defineInstancesForSqlValue . fst $ recordTemplate (recordConfig $ nameConfig config) schema table return $ modelD ++ sqlvD -- | Generate all HDBC templates using system catalog informations with specified config. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Delete.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Delete.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Delete.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Delete.hs 2017-07-24 15:01:07.000000000 +0200 @@ -10,7 +10,7 @@ -- Portability : unknown -- -- This module provides typed 'Delete' running sequence --- which intermediate structres are typed. +-- which intermediate structures are typed. module Database.HDBC.Record.Delete ( PreparedDelete, prepare, prepareDelete, withPrepareDelete, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Insert.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Insert.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Insert.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Insert.hs 2017-07-24 15:01:07.000000000 +0200 @@ -10,7 +10,7 @@ -- Portability : unknown -- -- This module provides typed 'Insert' running sequence --- which intermediate structres are typed. +-- which intermediate structures are typed. module Database.HDBC.Record.Insert ( PreparedInsert, prepare, prepareInsert, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/InsertQuery.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/InsertQuery.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/InsertQuery.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/InsertQuery.hs 2017-07-24 15:01:07.000000000 +0200 @@ -10,7 +10,7 @@ -- Portability : unknown -- -- This module provides typed 'InsertQuery' running sequence --- which intermediate structres are typed. +-- which intermediate structures are typed. module Database.HDBC.Record.InsertQuery ( PreparedInsertQuery, prepare, prepareInsertQuery, withPrepareInsertQuery, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/KeyUpdate.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/KeyUpdate.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/KeyUpdate.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/KeyUpdate.hs 2017-07-24 15:01:07.000000000 +0200 @@ -2,7 +2,7 @@ -- | -- Module : Database.HDBC.Record.KeyUpdate --- Copyright : 2013 Kei Hibino +-- Copyright : 2013-2017 Kei Hibino -- License : BSD3 -- -- Maintainer : ex8k.hibino(a)gmail.com @@ -10,7 +10,7 @@ -- Portability : unknown -- -- This module provides typed 'KeyUpdate' running sequence --- which intermediate structres are typed. +-- which intermediate structures are typed. module Database.HDBC.Record.KeyUpdate ( PreparedKeyUpdate, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Query.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Query.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Query.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Query.hs 2017-07-24 15:01:07.000000000 +0200 @@ -10,7 +10,7 @@ -- Portability : unknown -- -- This module provides typed 'Query' running sequence --- which intermediate structres are typed. +-- which intermediate structures are typed. module Database.HDBC.Record.Query ( PreparedQuery, prepare, prepareQuery, withPrepareQuery, @@ -33,7 +33,7 @@ import Database.HDBC.Record.Statement (unsafePrepare, withUnsafePrepare, PreparedStatement, bind, BoundStatement, - execute, ExecutedStatement, executed) + executeBound, ExecutedStatement, executed) -- | Typed prepared query type. @@ -112,11 +112,11 @@ -- | Execute statement and lazily fetch all records. runStatement :: FromSql SqlValue a => BoundStatement a -> IO [a] -runStatement = (>>= fetchAll) . execute +runStatement = (>>= fetchAll) . executeBound -- | Strict version of 'runStatement'. runStatement' :: FromSql SqlValue a => BoundStatement a -> IO [a] -runStatement' = (>>= fetchAll') . execute +runStatement' = (>>= fetchAll') . executeBound -- | Bind parameters, execute statement and lazily fetch all records. runPreparedQuery :: (ToSql SqlValue p, FromSql SqlValue a) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Statement.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Statement.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Statement.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Statement.hs 2017-07-24 15:01:07.000000000 +0200 @@ -2,7 +2,7 @@ -- | -- Module : Database.HDBC.Record.Statement --- Copyright : 2013 Kei Hibino +-- Copyright : 2013-2017 Kei Hibino -- License : BSD3 -- -- Maintainer : ex8k.hibino(a)gmail.com @@ -10,7 +10,7 @@ -- Portability : unknown -- -- This module provides typed statement running sequence --- which intermediate structres are typed. +-- which intermediate structures are typed. module Database.HDBC.Record.Statement ( PreparedStatement, untypePrepared, unsafePrepare, finish, @@ -18,9 +18,13 @@ BoundStatement (..), bind', bind, bindTo, - ExecutedStatement, executed, result, execute, + ExecutedStatement, executed, result, - prepareNoFetch, executeNoFetch, runPreparedNoFetch, runNoFetch, mapNoFetch + executeBound, execute, executePrepared, + + prepareNoFetch, + executeBoundNoFetch, executeNoFetch, runPreparedNoFetch, + runNoFetch, mapNoFetch, ) where import Control.Exception (bracket) @@ -106,7 +110,7 @@ -> BoundStatement a -- ^ Result parameter bound statement bind' toSql q p = BoundStatement { bound = prepared q, params = runFromRecord toSql p } --- | Typed operation to bind parameters. Infered 'RecordToSql' is used. +-- | Typed operation to bind parameters. Inferred 'RecordToSql' is used. bind :: ToSql SqlValue p => PreparedStatement p a -> p -> BoundStatement a bind = bind' recordToSql @@ -115,22 +119,38 @@ bindTo = flip bind -- | Typed execute operation. -execute :: BoundStatement a -> IO (ExecutedStatement a) -execute bs = do +executeBound :: BoundStatement a -> IO (ExecutedStatement a) +executeBound bs = do let stmt = bound bs n <- HDBC.execute stmt (params bs) return $ ExecutedStatement stmt n +{-# WARNING execute "Use 'executeBound' instead of this. This name will be used for executePrepared function in future release." #-} +-- | Use 'executeBound' instead of this. +-- WARNING! This name will be used for executePrepared function in future release. +execute :: BoundStatement a -> IO (ExecutedStatement a) +execute = executeBound + +-- | Bind parameters, execute prepared statement and get executed statement. +executePrepared :: ToSql SqlValue p => PreparedStatement p a -> p -> IO (ExecutedStatement a) +executePrepared st = executeBound . bind st + -- | Typed execute operation. Only get result. +executeBoundNoFetch :: BoundStatement () -> IO Integer +executeBoundNoFetch = fmap result . executeBound + +{- WARNING executeNoFetch "Use 'executeBoundNoFetch' instead of this. This name will be used for runPreparedNoFetch function in future release." -} +-- | Use 'executeBoundNoFetch' instead of this. +-- WARNING! This name will be used for runPreparedNoFetch function in future release. executeNoFetch :: BoundStatement () -> IO Integer -executeNoFetch = fmap result . execute +executeNoFetch = executeBoundNoFetch --- | Bind parameters, execute statement and get execution result. +-- | Bind parameters, execute prepared statement and get execution result. runPreparedNoFetch :: ToSql SqlValue a - => PreparedStatement a () - -> a - -> IO Integer -runPreparedNoFetch p = executeNoFetch . (p `bind`) + => PreparedStatement a () + -> a + -> IO Integer +runPreparedNoFetch p = executeBoundNoFetch . (p `bind`) -- | Prepare and run sequence for polymorphic no-fetch statement. runNoFetch :: (UntypeableNoFetch s, IConnection conn, ToSql SqlValue a) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Update.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Update.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Record/Update.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Record/Update.hs 2017-07-24 15:01:07.000000000 +0200 @@ -10,7 +10,7 @@ -- Portability : unknown -- -- This module provides typed 'Update' running sequence --- which intermediate structres are typed. +-- which intermediate structures are typed. module Database.HDBC.Record.Update ( PreparedUpdate, prepare, prepareUpdate, withPrepareUpdate, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/IBMDB2.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/IBMDB2.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/IBMDB2.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/IBMDB2.hs 2017-07-24 15:01:07.000000000 +0200 @@ -34,7 +34,7 @@ import Database.HDBC.Record.Query (runQuery') import Database.HDBC.Record.Persistable () -import Database.Record.TH (makeRecordPersistableWithSqlTypeDefaultFromDefined) +import Database.Record (FromSql, ToSql) import Database.Relational.Schema.IBMDB2 (normalizeColumn, notNull, getType, columnsQuerySQL, primaryKeyQuerySQL) @@ -46,9 +46,8 @@ Driver, getFieldsWithMap, getPrimaryKey, emptyDriver) --- Specify type constructor and data constructor from same table name. -$(makeRecordPersistableWithSqlTypeDefaultFromDefined - [t| SqlValue |] ''Columns) +instance FromSql SqlValue Columns +instance ToSql SqlValue Columns logPrefix :: String -> String logPrefix = ("IBMDB2: " ++) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/MySQL.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/MySQL.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/MySQL.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/MySQL.hs 2017-07-24 15:01:07.000000000 +0200 @@ -26,6 +26,7 @@ import Data.Map (fromList) import Database.HDBC (IConnection, SqlValue) +import Database.Record (FromSql, ToSql) import Database.HDBC.Record.Query (runQuery') import Database.HDBC.Record.Persistable () import Database.HDBC.Schema.Driver ( TypeMap @@ -39,7 +40,6 @@ , getPrimaryKey , emptyDriver ) -import Database.Record.TH (makeRecordPersistableWithSqlTypeDefaultFromDefined) import Database.Relational.Schema.MySQL ( normalizeColumn , notNull , getType @@ -50,7 +50,9 @@ import Database.Relational.Schema.MySQLInfo.Columns (Columns) import qualified Database.Relational.Schema.MySQLInfo.Columns as Columns -$(makeRecordPersistableWithSqlTypeDefaultFromDefined [t| SqlValue |] ''Columns) + +instance FromSql SqlValue Columns +instance ToSql SqlValue Columns logPrefix :: String -> String logPrefix = ("MySQL: " ++) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/Oracle.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/Oracle.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/Oracle.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/Oracle.hs 2017-07-24 15:01:07.000000000 +0200 @@ -23,9 +23,10 @@ import Language.Haskell.TH (TypeQ) import Database.HDBC (IConnection, SqlValue) +import Database.Record (FromSql, ToSql) + import Database.HDBC.Record.Query (runQuery') import Database.HDBC.Record.Persistable () -import Database.Record.TH (makeRecordPersistableWithSqlTypeDefaultFromDefined) import Database.HDBC.Schema.Driver ( TypeMap, LogChan, putVerbose, failWith, maybeIO, hoistMaybe, Driver, getFieldsWithMap, getPrimaryKey, emptyDriver @@ -38,9 +39,9 @@ import Database.Relational.Schema.OracleDataDictionary.TabColumns (DbaTabColumns) import qualified Database.Relational.Schema.OracleDataDictionary.TabColumns as Cols -$(makeRecordPersistableWithSqlTypeDefaultFromDefined - [t|SqlValue|] - ''DbaTabColumns) + +instance FromSql SqlValue DbaTabColumns +instance ToSql SqlValue DbaTabColumns logPrefix :: String -> String logPrefix = ("Oracle: " ++) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/PostgreSQL.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/PostgreSQL.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/PostgreSQL.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/PostgreSQL.hs 2017-07-24 15:01:07.000000000 +0200 @@ -31,7 +31,7 @@ import Database.HDBC.Record.Query (runQuery') import Database.HDBC.Record.Persistable () -import Database.Record.TH (makeRecordPersistableWithSqlTypeDefaultFromDefined) +import Database.Record (FromSql, ToSql) import Database.Relational.Schema.PostgreSQL (normalizeColumn, notNull, getType, columnQuerySQL, @@ -45,11 +45,11 @@ Driver, getFieldsWithMap, getPrimaryKey, emptyDriver) -$(makeRecordPersistableWithSqlTypeDefaultFromDefined - [t| SqlValue |] ''PgAttribute) +instance FromSql SqlValue PgAttribute +instance ToSql SqlValue PgAttribute -$(makeRecordPersistableWithSqlTypeDefaultFromDefined - [t| SqlValue |] ''PgType) +instance FromSql SqlValue PgType +instance ToSql SqlValue PgType logPrefix :: String -> String logPrefix = ("PostgreSQL: " ++) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/SQLServer.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/SQLServer.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/SQLServer.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/SQLServer.hs 2017-07-24 15:01:07.000000000 +0200 @@ -29,7 +29,7 @@ import Database.HDBC.Schema.Driver (TypeMap, LogChan, putVerbose, failWith, maybeIO, Driver, hoistMaybe, getFieldsWithMap, getPrimaryKey, emptyDriver) -import Database.Record.TH (makeRecordPersistableWithSqlTypeDefaultFromDefined) +import Database.Record (FromSql, ToSql) import Database.Relational.Schema.SQLServer (columnTypeQuerySQL, getType, normalizeColumn, notNull, primaryKeyQuerySQL) import Database.Relational.Schema.SQLServerSyscat.Columns (Columns) @@ -37,11 +37,11 @@ import Language.Haskell.TH (TypeQ) -$(makeRecordPersistableWithSqlTypeDefaultFromDefined - [t| SqlValue |] ''Columns) +instance FromSql SqlValue Columns +instance ToSql SqlValue Columns -$(makeRecordPersistableWithSqlTypeDefaultFromDefined - [t| SqlValue |] ''Types) +instance FromSql SqlValue Types +instance ToSql SqlValue Types logPrefix :: String -> String logPrefix = ("SQLServer: " ++) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/SQLite3.hs new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/SQLite3.hs --- old/relational-query-HDBC-0.6.0.3/src/Database/HDBC/Schema/SQLite3.hs 2017-05-04 11:45:17.000000000 +0200 +++ new/relational-query-HDBC-0.6.4.0/src/Database/HDBC/Schema/SQLite3.hs 2017-07-24 15:01:07.000000000 +0200 @@ -30,7 +30,7 @@ import Database.HDBC.Schema.Driver (TypeMap, LogChan, putVerbose, failWith, maybeIO, Driver, hoistMaybe, getFieldsWithMap, getPrimaryKey, emptyDriver) -import Database.Record.TH (makeRecordPersistableWithSqlTypeDefaultFromDefined) +import Database.Record (FromSql, ToSql) import Database.Relational.Schema.SQLite3 (getType, indexInfoQuerySQL, indexListQuerySQL, normalizeColumn, normalizeType, notNull, tableInfoQuerySQL) import Database.Relational.Schema.SQLite3Syscat.IndexInfo (IndexInfo) @@ -38,14 +38,15 @@ import Database.Relational.Schema.SQLite3Syscat.TableInfo (TableInfo) import Language.Haskell.TH (TypeQ) -$(makeRecordPersistableWithSqlTypeDefaultFromDefined - [t| SqlValue |] ''TableInfo) -$(makeRecordPersistableWithSqlTypeDefaultFromDefined - [t| SqlValue |] ''IndexList) +instance FromSql SqlValue TableInfo +instance ToSql SqlValue TableInfo -$(makeRecordPersistableWithSqlTypeDefaultFromDefined - [t| SqlValue |] ''IndexInfo) +instance FromSql SqlValue IndexList +instance ToSql SqlValue IndexList + +instance FromSql SqlValue IndexInfo +instance ToSql SqlValue IndexInfo logPrefix :: String -> String logPrefix = ("SQLite3: " ++)

1 0

commit ghc-relational-query for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-relational-query for openSUSE:Factory checked in at 2017-08-31 20:58:21 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-relational-query (Old) and /work/SRC/openSUSE:Factory/.ghc-relational-query.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-relational-query" Thu Aug 31 20:58:21 2017 rev:7 rq:513467 version:0.9.4.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-relational-query/ghc-relational-query.changes 2017-06-04 01:58:40.633963583 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-relational-query.new/ghc-relational-query.changes 2017-08-31 20:58:22.379319150 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:07 UTC 2017 - psimons(a)suse.com + +- Update to version 0.9.4.1. + +------------------------------------------------------------------- Old: ---- relational-query-0.8.4.0.tar.gz New: ---- relational-query-0.9.4.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-relational-query.spec ++++++ --- /var/tmp/diff_new_pack.OtAXbO/_old 2017-08-31 20:58:23.359181475 +0200 +++ /var/tmp/diff_new_pack.OtAXbO/_new 2017-08-31 20:58:23.363180914 +0200 @@ -19,7 +19,7 @@ %global pkg_name relational-query %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.8.4.0 +Version: 0.9.4.1 Release: 0 Summary: Typeful, Modular, Relational, algebraic query engine License: BSD-3-Clause ++++++ relational-query-0.8.4.0.tar.gz -> relational-query-0.9.4.1.tar.gz ++++++ ++++ 2654 lines of diff (skipped)

1 0

commit ghc-reform-happstack for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-reform-happstack for openSUSE:Factory checked in at 2017-08-31 20:58:19 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-reform-happstack (Old) and /work/SRC/openSUSE:Factory/.ghc-reform-happstack.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-reform-happstack" Thu Aug 31 20:58:19 2017 rev:2 rq:513466 version:0.2.5.2 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-reform-happstack/ghc-reform-happstack.changes 2017-04-14 13:32:31.611435870 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-reform-happstack.new/ghc-reform-happstack.changes 2017-08-31 20:58:19.979656309 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:13 UTC 2017 - psimons(a)suse.com + +- Update to version 0.2.5.2. + +------------------------------------------------------------------- Old: ---- reform-happstack-0.2.5.1.tar.gz New: ---- reform-happstack-0.2.5.2.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-reform-happstack.spec ++++++ --- /var/tmp/diff_new_pack.bzn90h/_old 2017-08-31 20:58:20.839535493 +0200 +++ /var/tmp/diff_new_pack.bzn90h/_new 2017-08-31 20:58:20.839535493 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-reform-happstack # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 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,15 +18,14 @@ %global pkg_name reform-happstack Name: ghc-%{pkg_name} -Version: 0.2.5.1 +Version: 0.2.5.2 Release: 0 Summary: Happstack support for reform License: BSD-3-Clause -Group: System/Libraries +Group: Development/Languages/Other Url: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… BuildRequires: ghc-Cabal-devel -# Begin cabal-rpm deps: BuildRequires: ghc-bytestring-devel BuildRequires: ghc-happstack-server-devel BuildRequires: ghc-mtl-devel @@ -36,7 +35,6 @@ BuildRequires: ghc-text-devel BuildRequires: ghc-utf8-string-devel BuildRoot: %{_tmppath}/%{name}-%{version}-build -# End cabal-rpm deps %description Reform is a library for building and validating forms using applicative @@ -57,15 +55,12 @@ %prep %setup -q -n %{pkg_name}-%{version} - %build %ghc_lib_build - %install %ghc_lib_install - %post devel %ghc_pkg_recache ++++++ reform-happstack-0.2.5.1.tar.gz -> reform-happstack-0.2.5.2.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/reform-happstack-0.2.5.1/Text/Reform/Happstack.hs new/reform-happstack-0.2.5.2/Text/Reform/Happstack.hs --- old/reform-happstack-0.2.5.1/Text/Reform/Happstack.hs 2015-12-18 22:27:21.000000000 +0100 +++ new/reform-happstack-0.2.5.2/Text/Reform/Happstack.hs 2017-07-21 20:02:48.000000000 +0200 @@ -5,7 +5,6 @@ module Text.Reform.Happstack where import Control.Applicative (Applicative((<*>)), Alternative, (<$>), (<|>), (*>), optional) -import Control.Applicative.Indexed (IndexedApplicative(..)) import Control.Monad (msum, mplus) import Control.Monad.Trans (liftIO) import Data.ByteString.Lazy (ByteString) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/reform-happstack-0.2.5.1/reform-happstack.cabal new/reform-happstack-0.2.5.2/reform-happstack.cabal --- old/reform-happstack-0.2.5.1/reform-happstack.cabal 2015-12-18 22:27:21.000000000 +0100 +++ new/reform-happstack-0.2.5.2/reform-happstack.cabal 2017-07-21 20:02:48.000000000 +0200 @@ -1,5 +1,5 @@ Name: reform-happstack -Version: 0.2.5.1 +Version: 0.2.5.2 Synopsis: Happstack support for reform. Description: Reform is a library for building and validating forms using applicative functors. This package add support for using reform with Happstack. Homepage: http://www.happstack.com/ @@ -11,7 +11,7 @@ Category: Web Build-type: Simple Cabal-version: >=1.6 -tested-with: GHC == 7.6.3, GHC == 7.8.4, GHC == 7.10.3 +tested-with: GHC == 7.6.3, GHC == 7.8.4, GHC == 7.10.3, GHC == 8.0.1 source-repository head type: git @@ -21,10 +21,10 @@ Exposed-modules: Text.Reform.Happstack Build-depends: base >4 && <5, bytestring >= 0.9 && < 0.11, - happstack-server >= 7.0 && < 7.5, + happstack-server >= 7.0 && < 7.6, mtl >= 2.0 && < 2.3, random >= 1.0 && < 1.2, - reform == 0.2.*, + reform >= 0.2 && < 0.4, text >= 0.11 && < 1.3, utf8-string >= 0.3 && < 1.1

1 0

commit ghc-read-env-var for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-read-env-var for openSUSE:Factory checked in at 2017-08-31 20:58:17 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-read-env-var (Old) and /work/SRC/openSUSE:Factory/.ghc-read-env-var.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-read-env-var" Thu Aug 31 20:58:17 2017 rev:4 rq:513465 version:1.0.0.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-read-env-var/ghc-read-env-var.changes 2017-04-14 13:36:41.680094896 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-read-env-var.new/ghc-read-env-var.changes 2017-08-31 20:58:18.939802411 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:14 UTC 2017 - psimons(a)suse.com + +- Update to version 1.0.0.0. + +------------------------------------------------------------------- Old: ---- read-env-var-0.1.0.1.tar.gz New: ---- read-env-var-1.0.0.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-read-env-var.spec ++++++ --- /var/tmp/diff_new_pack.poWzCg/_old 2017-08-31 20:58:19.747688901 +0200 +++ /var/tmp/diff_new_pack.poWzCg/_new 2017-08-31 20:58:19.759687215 +0200 @@ -19,7 +19,7 @@ %global pkg_name read-env-var %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.1.0.1 +Version: 1.0.0.0 Release: 0 Summary: Functions for safely reading environment variables License: BSD-3-Clause @@ -27,7 +27,9 @@ Url: https://hackage.haskell.org/package/%{pkg_name} Source0: https://hackage.haskell.org/package/%{pkg_name}-%{version}/%{pkg_name}-%{ve… BuildRequires: ghc-Cabal-devel +BuildRequires: ghc-exceptions-devel BuildRequires: ghc-rpm-macros +BuildRequires: ghc-transformers-devel BuildRoot: %{_tmppath}/%{name}-%{version}-build %if %{with tests} BuildRequires: ghc-Glob-devel ++++++ read-env-var-0.1.0.1.tar.gz -> read-env-var-1.0.0.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/read-env-var-0.1.0.1/LICENSE new/read-env-var-1.0.0.0/LICENSE --- old/read-env-var-0.1.0.1/LICENSE 2016-04-07 08:10:46.000000000 +0200 +++ new/read-env-var-1.0.0.0/LICENSE 2017-03-22 03:23:42.000000000 +0100 @@ -1,4 +1,4 @@ -Copyright Author name here (c) 2016 +Copyright Dennis Gosnell (c) 2016 All rights reserved. @@ -27,4 +27,4 @@ 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. \ No newline at end of file +OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/read-env-var-0.1.0.1/read-env-var.cabal new/read-env-var-1.0.0.0/read-env-var.cabal --- old/read-env-var-0.1.0.1/read-env-var.cabal 2016-08-15 19:56:50.000000000 +0200 +++ new/read-env-var-1.0.0.0/read-env-var.cabal 2017-03-22 15:06:37.000000000 +0100 @@ -1,5 +1,5 @@ name: read-env-var -version: 0.1.0.1 +version: 1.0.0.0 synopsis: Functions for safely reading environment variables. description: Please see README.md homepage: https://github.com/cdepillabout/read-env-var#readme @@ -16,7 +16,9 @@ library hs-source-dirs: src exposed-modules: System.ReadEnvVar - build-depends: base >= 4.6 && < 5 + build-depends: base >= 4.7 && < 5 + , exceptions + , transformers default-language: Haskell2010 ghc-options: -Wall diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/read-env-var-0.1.0.1/src/System/ReadEnvVar.hs new/read-env-var-1.0.0.0/src/System/ReadEnvVar.hs --- old/read-env-var-0.1.0.1/src/System/ReadEnvVar.hs 2016-08-15 19:55:31.000000000 +0200 +++ new/read-env-var-1.0.0.0/src/System/ReadEnvVar.hs 2017-03-22 14:53:20.000000000 +0100 @@ -1,3 +1,4 @@ +{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE CPP #-} {-| @@ -9,12 +10,37 @@ Portability : POSIX This Haskell module exports functions for safely reading environment variables. + +The @lookupEnv*@ functions are for reading in 'String'-like environment +variables (like hostnames, passwords, etc.), while the @readEnv*@ functions are +for reading in Haskell datatypes (like 'Int', 'Double', etc). + +Most of these functions run in 'MonadIO'. This means that they can be used +from any monad that implements 'MonadIO'. This makes it easier to run in a +monad transformer stack. If you're not familiar with 'MonadIO', you can just +think of all the functions as being 'IO' actions. + +The 'lookupEnv', 'lookupEnvDef', and 'lookupEnvEx' functions all use 'IsString' +to generalize the return type. This makes it more general than +"System.Environment"\'s 'Env.lookupEnv'. It makes it possible to read in +things other than 'String's, like +<https://hackage.haskell.org/package/text/docs/Data-Text.html Text> or +<https://hackage.haskell.org/package/bytestring/docs/Data-ByteString.html ByteString>. -} module System.ReadEnvVar - ( readEnvVar - , readEnvVarDef + ( lookupEnv , lookupEnvDef + , readEnv + , readEnvDef + -- * Unsafe functions + , EnvVarDoesNotExistException(..) + , lookupEnvEx + , readEnvEx + , EnvVarCannotBeReadException(..) + , readEnvEx' + -- * Re-exports + , setEnv ) where #if __GLASGOW_HASKELL__ < 710 @@ -23,69 +49,277 @@ import Control.Applicative #endif +import Control.Exception (Exception) +import Control.Monad.Catch (MonadThrow(throwM)) +import Control.Monad.IO.Class (MonadIO(liftIO)) +import Data.Data (Data) import Data.Maybe (fromMaybe) import Data.String (IsString(fromString)) -import System.Environment (lookupEnv) +import Data.Typeable (Typeable) +import System.Environment (setEnv) +import qualified System.Environment as Env import Text.Read (readMaybe) -- | Lookup a value from an environment variable and read it in with -- 'readMaybe'. If the environment variable doesn't exist, or it can't be --- 'read', use the default value. +-- 'read', return the default value. Like 'readEnv' but with a default +-- value. -- --- Note that this does not read string values as one would expect. +-- Read an environment variable that exists: -- --- >>> import System.Environment (setEnv) -- >>> setEnv "TEST_ENV_VAR1" "1000" --- >>> readEnvVarDef "TEST_ENV_VAR1" 5 :: IO Int +-- >>> readEnvDef "TEST_ENV_VAR1" 5 :: IO Int -- 1000 --- >>> readEnvVarDef "THIS_ENV_VAR_WILL_NOT_EXIST" 5 :: IO Int +-- +-- Try reading an environment variable that does not exist. Returns the +-- default value: +-- +-- >>> readEnvDef "THIS_ENV_VAR_WILL_NOT_EXIST" 5 :: IO Int -- 5 +-- +-- Try reading an environment variable that cannot be 'read'. Returns the +-- default value: +-- +-- >>> setEnv "BAD_ENV_VAR" "not an int" +-- >>> readEnvDef "BAD_ENV_VAR" 10 :: IO Int +-- 10 +-- +-- Note that this __DOES NOT__ read string values as one might expect: +-- -- >>> setEnv "TEST_ENV_VAR2" "some string 1" --- >>> readEnvVarDef "TEST_ENV_VAR2" "def val" :: IO String +-- >>> readEnvDef "TEST_ENV_VAR2" "def val" :: IO String -- "def val" +-- +-- It will read string values as if they were Haskell strings: +-- -- >>> setEnv "TEST_ENV_VAR3" "\"some string 1\"" --- >>> readEnvVarDef "TEST_ENV_VAR3" "def val" :: IO String +-- >>> readEnvDef "TEST_ENV_VAR3" "def val" :: IO String -- "some string 1" -readEnvVarDef :: Read a - => String -- ^ environment variable to lookup - -> a -- ^ default value to use if the environment variable - -- either does not exist, or cannot be 'read' - -> IO a -readEnvVarDef envVar def = fromMaybe def <$> readEnvVar envVar +readEnvDef + :: (MonadIO m, Read a) + => String -- ^ environment variable to lookup + -> a -- ^ default value to return if the environment variable + -- either does not exist, or cannot be 'read' + -> m a +readEnvDef envVar def = do + maybeEnv <- readEnv envVar + return $ fromMaybe def maybeEnv -- | Lookup a value from an environment variable and read it in with -- 'readMaybe'. -- --- Note that this does not read string values as one would expect. +-- Read an environment variable that exists: -- --- >>> import System.Environment (setEnv) -- >>> setEnv "TEST_ENV_VAR" "2000" --- >>> readEnvVar "TEST_ENV_VAR" :: IO (Maybe Int) +-- >>> readEnv "TEST_ENV_VAR" :: IO (Maybe Int) -- Just 2000 --- >>> readEnvVar "THIS_ENV_VAR_WILL_NOT_EXIST" :: IO (Maybe Int) +-- +-- Try reading an environment variable that does not exist. Returns 'Nothing': +-- +-- >>> readEnv "THIS_ENV_VAR_WILL_NOT_EXIST" :: IO (Maybe Int) -- Nothing +-- +-- Try reading an environment variable that cannot be 'read'. Returns +-- 'Nothing': +-- +-- >>> setEnv "BAD_ENV_VAR" "not an int" +-- >>> readEnv "BAD_ENV_VAR" :: IO (Maybe Int) +-- Nothing +-- +-- Note that this __DOES NOT__ read string values as one might expect: +-- -- >>> setEnv "TEST_ENV_VAR2" "some string 1" --- >>> readEnvVar "TEST_ENV_VAR2" :: IO (Maybe String) +-- >>> readEnv "TEST_ENV_VAR2" :: IO (Maybe String) -- Nothing +-- +-- It will read string values as if they were Haskell strings: +-- -- >>> setEnv "TEST_ENV_VAR3" "\"some string 1\"" --- >>> readEnvVar "TEST_ENV_VAR3" :: IO (Maybe String) +-- >>> readEnv "TEST_ENV_VAR3" :: IO (Maybe String) -- Just "some string 1" -readEnvVar :: Read a - => String -- ^ environment variable to lookup - -> IO (Maybe a) -readEnvVar = fmap (>>= readMaybe) . lookupEnv +readEnv + :: (MonadIO m, Read a) + => String -- ^ environment variable to lookup + -> m (Maybe a) +readEnv envVar = do + maybeEnv <- liftIO (Env.lookupEnv envVar) + return $ maybeEnv >>= readMaybe -- | Like 'lookupEnv' but take a default value. -- --- >>> import System.Environment (setEnv) +-- Lookup an environment variable that exists: +-- -- >>> setEnv "TEST_ENV_VAR" "foo" -- >>> lookupEnvDef "TEST_ENV_VAR" "bar" :: IO String -- "foo" +-- +-- Lookup an environment variable that doesn't exist. Return the default +-- value: +-- -- >>> lookupEnvDef "THIS_ENV_VAR_WILL_NOT_EXIST" "bar" :: IO String -- "bar" -lookupEnvDef :: IsString a - => String -- ^ environment variable to lookup - -> a -- ^ default value to use if environment variable not defined - -> IO a -lookupEnvDef envVar defaultValue = - pure . maybe defaultValue fromString =<< lookupEnv envVar +lookupEnvDef + :: (IsString a, MonadIO m) + => String -- ^ environment variable to lookup + -> a -- ^ default value to return if environment variable not defined + -> m a +lookupEnvDef envVar defaultValue = do + maybeEnv <- liftIO $ Env.lookupEnv envVar + return $ maybe defaultValue fromString maybeEnv + +-- | Like "System.Environment"\'s 'Env.lookupEnv', but using 'IsString' to make +-- it more general. +-- +-- Lookup an environment variable that exists: +-- +-- >>> setEnv "TEST_ENV_VAR" "foo" +-- >>> lookupEnv "TEST_ENV_VAR" :: IO (Maybe String) +-- Just "foo" +-- +-- Lookup an environment variable that doesn't exist. Return 'Nothing': +-- +-- >>> lookupEnv "THIS_ENV_VAR_WILL_NOT_EXIST" :: IO (Maybe String) +-- Nothing +lookupEnv + :: (IsString a, MonadIO m) + => String + -> m (Maybe a) +lookupEnv envVar = do + maybeEnv <- liftIO $ Env.lookupEnv envVar + return $ fmap fromString maybeEnv + +-- | 'Exception' thrown by 'lookupEnvEx' and 'readEnvEx' when the +-- environment variable being read doesn't exist. +data EnvVarDoesNotExistException = + -- | The 'String' is the name of the environment variable that does not + -- exist. + EnvVarDoesNotExistException String + deriving (Data, Eq, Ord, Read, Show, Typeable) + +instance Exception EnvVarDoesNotExistException + +-- | Like 'lookupEnv', but instead of returning a 'Maybe', throw an +-- 'EnvVarDoesNotExistException' if the environment variable does not exist. +-- The exception is thrown with 'throwM' from 'MonadThrow'. +-- +-- Lookup an environment variable that exists: +-- +-- >>> setEnv "TEST_ENV_VAR" "foo" +-- >>> lookupEnvEx "TEST_ENV_VAR" :: IO String +-- "foo" +-- +-- Lookup an environment variable that doesn't exist. Throws +-- 'EnvVarDoesNotExistException'. +-- +-- >>> lookupEnvEx "THIS_ENV_VAR_WILL_NOT_EXIST" :: IO String +-- *** Exception: EnvVarDoesNotExistException "THIS_ENV_VAR_WILL_NOT_EXIST" +lookupEnvEx + :: (IsString a, MonadIO m, MonadThrow m) + => String + -> m a +lookupEnvEx envVar = do + maybeEnv <- liftIO (Env.lookupEnv envVar) + case maybeEnv of + Nothing -> throwM $ EnvVarDoesNotExistException envVar + Just env -> return $ fromString env + +-- | Lookup a value from an environment variable and read it in with +-- 'readMaybe'. Throw an 'EnvVarDoesNotExistException' if the environment +-- variable does not exist. The exception is thrown with 'throwM' from +-- 'MonadThrow'. +-- +-- Read an environment variable that exists: +-- +-- >>> setEnv "TEST_ENV_VAR" "2000" +-- >>> readEnvEx "TEST_ENV_VAR" :: IO (Maybe Int) +-- Just 2000 +-- +-- Try reading an environment variable that does not exist. Throws +-- 'EnvVarDoesNotExistException': +-- +-- >>> readEnvEx "THIS_ENV_VAR_WILL_NOT_EXIST" :: IO (Maybe Int) +-- *** Exception: EnvVarDoesNotExistException "THIS_ENV_VAR_WILL_NOT_EXIST" +-- +-- Try reading an environment variable that cannot be 'read'. Returns +-- 'Nothing': +-- +-- >>> setEnv "BAD_ENV_VAR" "not an int" +-- >>> readEnvEx "BAD_ENV_VAR" :: IO (Maybe Int) +-- Nothing +-- +-- Note that this __DOES NOT__ read string values as one might expect: +-- +-- >>> setEnv "TEST_ENV_VAR2" "some string 1" +-- >>> readEnvEx "TEST_ENV_VAR2" :: IO (Maybe String) +-- Nothing +-- +-- It will read string values as if they were Haskell strings: +-- +-- >>> setEnv "TEST_ENV_VAR3" "\"some string 1\"" +-- >>> readEnvEx "TEST_ENV_VAR3" :: IO (Maybe String) +-- Just "some string 1" +readEnvEx + :: (MonadIO m, Read a, MonadThrow m) + => String -- ^ environment variable to lookup + -> m (Maybe a) +readEnvEx envVar = do + maybeEnv <- liftIO (Env.lookupEnv envVar) + case maybeEnv of + Nothing -> throwM $ EnvVarDoesNotExistException envVar + Just env -> return $ readMaybe env + +-- | 'Exception' thrown by 'readEnvEx'' when the environment variable +-- cannot be 'read'. +data EnvVarCannotBeReadException = + -- | The first 'String' is the name of the environment variable that cannot + -- be 'read'. + EnvVarCannotBeReadException String + deriving (Data, Eq, Ord, Read, Show, Typeable) + +instance Exception EnvVarCannotBeReadException + +-- | Just like 'readEnvEx', but also throw an exception when the environment +-- variable cannot be 'read'. +-- +-- This can throw both 'EnvVarCannotBeReadException' and +-- 'EnvVarDoesNotExistException' with 'throwM'. +-- +-- Read an environment variable that exists: +-- +-- >>> setEnv "TEST_ENV_VAR" "2000" +-- >>> readEnvEx' "TEST_ENV_VAR" :: IO Int +-- 2000 +-- +-- Try reading an environment variable that does not exist. Throws +-- 'EnvVarDoesNotExistException': +-- +-- >>> readEnvEx' "THIS_ENV_VAR_WILL_NOT_EXIST" :: IO Int +-- *** Exception: EnvVarDoesNotExistException "THIS_ENV_VAR_WILL_NOT_EXIST" +-- +-- Try reading an environment variable that cannot be 'read'. Throws +-- 'EnvVarCannotBeReadException': +-- +-- >>> setEnv "BAD_ENV_VAR" "not an int" +-- >>> readEnvEx' "BAD_ENV_VAR" :: IO Int +-- *** Exception: EnvVarCannotBeReadException "BAD_ENV_VAR" +-- +-- Note that this __DOES NOT__ read string values as one might expect: +-- +-- >>> setEnv "TEST_ENV_VAR2" "some string 1" +-- >>> readEnvEx' "TEST_ENV_VAR2" :: IO String +-- *** Exception: EnvVarCannotBeReadException "TEST_ENV_VAR2" +-- +-- It will read string values as if they were Haskell strings: +-- +-- >>> setEnv "TEST_ENV_VAR3" "\"some string 1\"" +-- >>> readEnvEx' "TEST_ENV_VAR3" :: IO String +-- "some string 1" +readEnvEx' + :: (MonadIO m, Read a, MonadThrow m) + => String -- ^ environment variable to lookup + -> m a +readEnvEx' envVar = do + maybeEnv <- readEnvEx envVar + case maybeEnv of + Nothing -> throwM $ EnvVarCannotBeReadException envVar + Just env -> return env

1 0

commit ghc-rattletrap for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-rattletrap for openSUSE:Factory checked in at 2017-08-31 20:58:14 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-rattletrap (Old) and /work/SRC/openSUSE:Factory/.ghc-rattletrap.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-rattletrap" Thu Aug 31 20:58:14 2017 rev:2 rq:513463 version:2.5.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-rattletrap/ghc-rattletrap.changes 2017-03-31 15:10:35.890962734 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-rattletrap.new/ghc-rattletrap.changes 2017-08-31 20:58:17.168051348 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:05 UTC 2017 - psimons(a)suse.com + +- Update to version 2.5.0. + +------------------------------------------------------------------- Old: ---- rattletrap-2.1.5.tar.gz New: ---- rattletrap-2.5.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-rattletrap.spec ++++++ --- /var/tmp/diff_new_pack.UjAfhZ/_old 2017-08-31 20:58:18.463869281 +0200 +++ /var/tmp/diff_new_pack.UjAfhZ/_new 2017-08-31 20:58:18.467868720 +0200 @@ -19,7 +19,7 @@ %global pkg_name rattletrap %bcond_with tests Name: ghc-%{pkg_name} -Version: 2.1.5 +Version: 2.5.0 Release: 0 Summary: Parse and generate Rocket League replays License: MIT @@ -43,8 +43,7 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-build %if %{with tests} BuildRequires: ghc-filepath-devel -BuildRequires: ghc-tasty-devel -BuildRequires: ghc-tasty-hspec-devel +BuildRequires: ghc-hspec-devel BuildRequires: ghc-temporary-devel %endif ++++++ rattletrap-2.1.5.tar.gz -> rattletrap-2.5.0.tar.gz ++++++ /work/SRC/openSUSE:Factory/ghc-rattletrap/rattletrap-2.1.5.tar.gz /work/SRC/openSUSE:Factory/.ghc-rattletrap.new/rattletrap-2.5.0.tar.gz differ: char 13, line 1

1 0

commit ghc-ratel for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-ratel for openSUSE:Factory checked in at 2017-08-31 20:58:13 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-ratel (Old) and /work/SRC/openSUSE:Factory/.ghc-ratel.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-ratel" Thu Aug 31 20:58:13 2017 rev:2 rq:513462 version:0.3.4 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-ratel/ghc-ratel.changes 2017-05-09 18:09:06.554365674 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-ratel.new/ghc-ratel.changes 2017-08-31 20:58:14.384442452 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:28 UTC 2017 - psimons(a)suse.com + +- Update to version 0.3.4. + +------------------------------------------------------------------- Old: ---- ratel-0.3.3.tar.gz New: ---- ratel-0.3.4.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-ratel.spec ++++++ --- /var/tmp/diff_new_pack.ZlGEcn/_old 2017-08-31 20:58:15.476289045 +0200 +++ /var/tmp/diff_new_pack.ZlGEcn/_new 2017-08-31 20:58:15.480288483 +0200 @@ -19,7 +19,7 @@ %global pkg_name ratel %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.3.3 +Version: 0.3.4 Release: 0 Summary: Notify Honeybadger about exceptions License: MIT ++++++ ratel-0.3.3.tar.gz -> ratel-0.3.4.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ratel-0.3.3/library/Ratel.hs new/ratel-0.3.4/library/Ratel.hs --- old/ratel-0.3.3/library/Ratel.hs 2017-04-17 15:53:45.000000000 +0200 +++ new/ratel-0.3.4/library/Ratel.hs 2017-07-21 01:47:01.000000000 +0200 @@ -55,7 +55,7 @@ Right notice -> return (unwrapNoticeUuid (noticeUuid notice)) -toError :: (?callStack :: Stack.CallStack) => Exception.SomeException -> Error +toError :: (Exception.Exception exception, Stack.HasCallStack) => exception -> Error toError exception = Error { errorBacktrace = Just (toTraces ?callStack) , errorClass = Just (show (Typeable.typeOf exception)) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ratel-0.3.3/package.yaml new/ratel-0.3.4/package.yaml --- old/ratel-0.3.3/package.yaml 2017-04-17 15:53:45.000000000 +0200 +++ new/ratel-0.3.4/package.yaml 2017-07-21 01:47:01.000000000 +0200 @@ -36,4 +36,4 @@ - tasty-hspec ==1.1.* main: Main.hs source-dirs: test-suite -version: '0.3.3' +version: '0.3.4' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/ratel-0.3.3/ratel.cabal new/ratel-0.3.4/ratel.cabal --- old/ratel-0.3.3/ratel.cabal 2017-04-17 15:56:08.000000000 +0200 +++ new/ratel-0.3.4/ratel.cabal 2017-07-21 01:48:05.000000000 +0200 @@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack name: ratel -version: 0.3.3 +version: 0.3.4 synopsis: Notify Honeybadger about exceptions. description: Ratel notifies Honeybadger about exceptions. category: Exceptions

1 0

commit ghc-quickcheck-io for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-quickcheck-io for openSUSE:Factory checked in at 2017-08-31 20:58:11 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-quickcheck-io (Old) and /work/SRC/openSUSE:Factory/.ghc-quickcheck-io.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-quickcheck-io" Thu Aug 31 20:58:11 2017 rev:3 rq:513461 version:0.2.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-quickcheck-io/ghc-quickcheck-io.changes 2016-11-10 13:20:26.000000000 +0100 +++ /work/SRC/openSUSE:Factory/.ghc-quickcheck-io.new/ghc-quickcheck-io.changes 2017-08-31 20:58:13.048630138 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:08:13 UTC 2017 - psimons(a)suse.com + +- Update to version 0.2.0. + +------------------------------------------------------------------- Old: ---- quickcheck-io-0.1.4.tar.gz New: ---- quickcheck-io-0.2.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-quickcheck-io.spec ++++++ --- /var/tmp/diff_new_pack.nIs6CV/_old 2017-08-31 20:58:14.036491341 +0200 +++ /var/tmp/diff_new_pack.nIs6CV/_new 2017-08-31 20:58:14.044490217 +0200 @@ -1,7 +1,7 @@ # # spec file for package ghc-quickcheck-io # -# Copyright (c) 2016 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2017 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 quickcheck-io Name: ghc-%{pkg_name} -Version: 0.1.4 +Version: 0.2.0 Release: 0 Summary: Use HUnit assertions as QuickCheck properties License: MIT ++++++ quickcheck-io-0.1.4.tar.gz -> quickcheck-io-0.2.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/quickcheck-io-0.1.4/LICENSE new/quickcheck-io-0.2.0/LICENSE --- old/quickcheck-io-0.1.4/LICENSE 2016-10-16 05:40:36.000000000 +0200 +++ new/quickcheck-io-0.2.0/LICENSE 2017-06-16 09:25:45.000000000 +0200 @@ -1,4 +1,4 @@ -Copyright (c) 2013 Simon Hengel <sol(a)typeful.net> +Copyright (c) 2013-2017 Simon Hengel <sol(a)typeful.net> Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/quickcheck-io-0.1.4/quickcheck-io.cabal new/quickcheck-io-0.2.0/quickcheck-io.cabal --- old/quickcheck-io-0.1.4/quickcheck-io.cabal 2016-10-16 05:40:36.000000000 +0200 +++ new/quickcheck-io-0.2.0/quickcheck-io.cabal 2017-06-16 09:25:45.000000000 +0200 @@ -1,9 +1,9 @@ --- This file has been generated from package.yaml by hpack version 0.15.0. +-- This file has been generated from package.yaml by hpack version 0.18.0. -- -- see: https://github.com/sol/hpack name: quickcheck-io -version: 0.1.4 +version: 0.2.0 synopsis: Use HUnit assertions as QuickCheck properties description: This package provides an orphan instance that allows you to use HUnit assertions as QuickCheck properties. @@ -12,7 +12,7 @@ bug-reports: https://github.com/hspec/quickcheck-io/issues license: MIT license-file: LICENSE -copyright: (c) 2013 Simon Hengel +copyright: (c) 2013-2017 Simon Hengel author: Simon Hengel <sol(a)typeful.net> maintainer: Simon Hengel <sol(a)typeful.net> build-type: Simple @@ -27,9 +27,11 @@ src ghc-options: -Wall build-depends: - QuickCheck >= 2.5.1 + QuickCheck >= 2.7 , HUnit >= 1.2.5 , base == 4.* exposed-modules: Test.QuickCheck.IO + other-modules: + Paths_quickcheck_io default-language: Haskell2010 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/quickcheck-io-0.1.4/src/Test/QuickCheck/IO.hs new/quickcheck-io-0.2.0/src/Test/QuickCheck/IO.hs --- old/quickcheck-io-0.1.4/src/Test/QuickCheck/IO.hs 2016-10-16 05:40:36.000000000 +0200 +++ new/quickcheck-io-0.2.0/src/Test/QuickCheck/IO.hs 2017-06-16 09:25:45.000000000 +0200 @@ -1,4 +1,6 @@ -{-# LANGUAGE CPP, TypeSynonymInstances, FlexibleInstances #-} +{-# LANGUAGE CPP #-} +{-# LANGUAGE TypeSynonymInstances #-} +{-# LANGUAGE FlexibleInstances #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module Test.QuickCheck.IO where @@ -13,19 +15,18 @@ #endif propertyIO :: Assertion -> Property -#if MIN_VERSION_QuickCheck(2,7,0) propertyIO action = ioProperty $ do -#else -propertyIO action = morallyDubiousIOProperty $ do -#endif - (action >> return succeeded) `E.catch` + (action >> return succeeded) `E.catch` \ e -> + return failed {theException = Just (E.toException e), reason = formatAssertion e} + where + formatAssertion e = case e of #if MIN_VERSION_HUnit(1,3,0) - \(HUnitFailure _ err) -> + HUnitFailure _ err -> #else - \(HUnitFailure err) -> + HUnitFailure err -> #endif #if MIN_VERSION_HUnit(1,5,0) - return failed {reason = formatFailureReason err} + formatFailureReason err #else - return failed {reason = err} + err #endif

1 0

commit ghc-pusher-http-haskell for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-pusher-http-haskell for openSUSE:Factory checked in at 2017-08-31 20:58:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-pusher-http-haskell (Old) and /work/SRC/openSUSE:Factory/.ghc-pusher-http-haskell.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-pusher-http-haskell" Thu Aug 31 20:58:09 2017 rev:2 rq:513460 version:1.2.0.1 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-pusher-http-haskell/ghc-pusher-http-haskell.changes 2017-04-12 18:08:34.934724882 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-pusher-http-haskell.new/ghc-pusher-http-haskell.changes 2017-08-31 20:58:09.465133630 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:11 UTC 2017 - psimons(a)suse.com + +- Update to version 1.2.0.1. + +------------------------------------------------------------------- Old: ---- pusher-http-haskell-1.1.0.4.tar.gz New: ---- pusher-http-haskell-1.2.0.1.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-pusher-http-haskell.spec ++++++ --- /var/tmp/diff_new_pack.GBPwX4/_old 2017-08-31 20:58:10.508986966 +0200 +++ /var/tmp/diff_new_pack.GBPwX4/_new 2017-08-31 20:58:10.512986404 +0200 @@ -19,7 +19,7 @@ %global pkg_name pusher-http-haskell %bcond_with tests Name: ghc-%{pkg_name} -Version: 1.1.0.4 +Version: 1.2.0.1 Release: 0 Summary: Haskell client library for the Pusher HTTP API License: MIT ++++++ pusher-http-haskell-1.1.0.4.tar.gz -> pusher-http-haskell-1.2.0.1.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pusher-http-haskell-1.1.0.4/LICENSE new/pusher-http-haskell-1.2.0.1/LICENSE --- old/pusher-http-haskell-1.1.0.4/LICENSE 2016-09-15 16:46:03.000000000 +0200 +++ new/pusher-http-haskell-1.2.0.1/LICENSE 2017-02-11 19:29:09.000000000 +0100 @@ -1,6 +1,6 @@ The MIT License (MIT) -Copyright (c) 2016 Will Sewell +Copyright (c) 2017 Will Sewell Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/pusher-http-haskell-1.1.0.4/pusher-http-haskell.cabal new/pusher-http-haskell-1.2.0.1/pusher-http-haskell.cabal --- old/pusher-http-haskell-1.1.0.4/pusher-http-haskell.cabal 2017-01-03 12:31:37.000000000 +0100 +++ new/pusher-http-haskell-1.2.0.1/pusher-http-haskell.cabal 2017-04-17 19:44:24.000000000 +0200 @@ -1,5 +1,5 @@ name: pusher-http-haskell -version: 1.1.0.4 +version: 1.2.0.1 cabal-version: >=1.18 build-type: Simple license: MIT @@ -30,7 +30,7 @@ default-language: Haskell2010 hs-source-dirs: src default-extensions: OverloadedStrings - build-depends: aeson >=0.8 && <1.2, + build-depends: aeson >=0.8 && <1.3, base >=4.7 && <4.10, bytestring ==0.10.*, base16-bytestring ==0.1.*, @@ -39,8 +39,8 @@ http-client >=0.4 && <0.6, http-types >=0.8 && <0.10, text ==1.2.*, - time >=1.4 && <1.7, - transformers >=0.3 && <0.6, + time >=1.5 && <1.7, + transformers >=0.4 && <0.6, unordered-containers ==0.2.* ghc-options: -Wall if impl(ghc >= 8.0.0)

1 0

commit ghc-purescript-bridge for openSUSE:Factory
by root＠hilbert.suse.de 31 Aug '17

31 Aug '17

Hello community, here is the log from the commit of package ghc-purescript-bridge for openSUSE:Factory checked in at 2017-08-31 20:58:07 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/ghc-purescript-bridge (Old) and /work/SRC/openSUSE:Factory/.ghc-purescript-bridge.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Package is "ghc-purescript-bridge" Thu Aug 31 20:58:07 2017 rev:2 rq:513459 version:0.11.0.0 Changes: -------- --- /work/SRC/openSUSE:Factory/ghc-purescript-bridge/ghc-purescript-bridge.changes 2017-04-12 18:08:34.102842507 +0200 +++ /work/SRC/openSUSE:Factory/.ghc-purescript-bridge.new/ghc-purescript-bridge.changes 2017-08-31 20:58:08.309296029 +0200 @@ -1,0 +2,5 @@ +Thu Jul 27 14:07:16 UTC 2017 - psimons(a)suse.com + +- Update to version 0.11.0.0. + +------------------------------------------------------------------- Old: ---- purescript-bridge-0.10.1.0.tar.gz New: ---- purescript-bridge-0.11.0.0.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ ghc-purescript-bridge.spec ++++++ --- /var/tmp/diff_new_pack.UIcrEj/_old 2017-08-31 20:58:09.229166784 +0200 +++ /var/tmp/diff_new_pack.UIcrEj/_new 2017-08-31 20:58:09.237165660 +0200 @@ -19,7 +19,7 @@ %global pkg_name purescript-bridge %bcond_with tests Name: ghc-%{pkg_name} -Version: 0.10.1.0 +Version: 0.11.0.0 Release: 0 Summary: Generate PureScript data types from Haskell data types License: BSD-3-Clause ++++++ purescript-bridge-0.10.1.0.tar.gz -> purescript-bridge-0.11.0.0.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/purescript-bridge-0.10.1.0/purescript-bridge.cabal new/purescript-bridge-0.11.0.0/purescript-bridge.cabal --- old/purescript-bridge-0.10.1.0/purescript-bridge.cabal 2017-02-11 14:48:07.000000000 +0100 +++ new/purescript-bridge-0.11.0.0/purescript-bridge.cabal 2017-03-28 22:57:35.000000000 +0200 @@ -10,7 +10,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change -version: 0.10.1.0 +version: 0.11.0.0 -- A short (one-line) description of the package. synopsis: Generate PureScript data types from Haskell data types

1 0