Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package ghc-call-stack for openSUSE:Factory
checked in at 2021-02-16 22:37:06
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-call-stack (Old)
and /work/SRC/openSUSE:Factory/.ghc-call-stack.new.28504 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-call-stack"
Tue Feb 16 22:37:06 2021 rev:11 rq:870448 version:0.3.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-call-stack/ghc-call-stack.changes
2020-12-22 11:37:03.701355280 +0100
+++ /work/SRC/openSUSE:Factory/.ghc-call-stack.new.28504/ghc-call-stack.changes
2021-02-16 22:45:20.182333861 +0100
@@ -1,0 +2,6 @@
+Wed Jan 20 08:34:32 UTC 2021 - psim...@suse.com
+
+- Update call-stack to version 0.3.0.
+ Upstream does not provide a change log file.
+
+-------------------------------------------------------------------
Old:
----
call-stack-0.2.0.tar.gz
New:
----
call-stack-0.3.0.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-call-stack.spec ++++++
--- /var/tmp/diff_new_pack.vLEsPH/_old 2021-02-16 22:45:20.830334714 +0100
+++ /var/tmp/diff_new_pack.vLEsPH/_new 2021-02-16 22:45:20.834334719 +0100
@@ -1,7 +1,7 @@
#
# spec file for package ghc-call-stack
#
-# Copyright (c) 2020 SUSE LLC
+# Copyright (c) 2021 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -19,7 +19,7 @@
%global pkg_name call-stack
%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 0.2.0
+Version: 0.3.0
Release: 0
Summary: Use GHC call-stacks in a backward compatible way
License: MIT
++++++ call-stack-0.2.0.tar.gz -> call-stack-0.3.0.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/call-stack-0.2.0/LICENSE new/call-stack-0.3.0/LICENSE
--- old/call-stack-0.2.0/LICENSE 2019-08-04 03:45:34.000000000 +0200
+++ new/call-stack-0.3.0/LICENSE 2001-09-09 03:46:40.000000000 +0200
@@ -1,4 +1,4 @@
-Copyright (c) 2016 Simon Hengel <s...@typeful.net>
+Copyright (c) 2016-2021 Simon Hengel <s...@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/call-stack-0.2.0/call-stack.cabal
new/call-stack-0.3.0/call-stack.cabal
--- old/call-stack-0.2.0/call-stack.cabal 2019-08-04 03:45:34.000000000
+0200
+++ new/call-stack-0.3.0/call-stack.cabal 2001-09-09 03:46:40.000000000
+0200
@@ -1,13 +1,11 @@
cabal-version: 1.12
--- This file has been generated from package.yaml by hpack version 0.31.0.
+-- This file has been generated from package.yaml by hpack version 0.34.3.
--
-- see: https://github.com/sol/hpack
---
--- hash: ead73de1f27ca13dbc12434ae8a06a86ce7c6fc59801f6807140632fc1e44df8
name: call-stack
-version: 0.2.0
+version: 0.3.0
synopsis: Use GHC call-stacks in a backward compatible way
category: Data
homepage: https://github.com/sol/call-stack#readme
@@ -26,7 +24,7 @@
src
ghc-options: -Wall
build-depends:
- base >=4.5.0.0 && <5
+ base ==4.*
exposed-modules:
Data.CallStack
other-modules:
@@ -41,7 +39,7 @@
test
ghc-options: -Wall
build-depends:
- base >=4.5.0.0 && <5
+ base ==4.*
, call-stack
, nanospec
other-modules:
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/call-stack-0.2.0/src/Data/CallStack.hs
new/call-stack-0.3.0/src/Data/CallStack.hs
--- old/call-stack-0.2.0/src/Data/CallStack.hs 2019-08-04 03:45:34.000000000
+0200
+++ new/call-stack-0.3.0/src/Data/CallStack.hs 2001-09-09 03:46:40.000000000
+0200
@@ -1,11 +1,19 @@
{-# LANGUAGE CPP #-}
-{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE ImplicitParams #-}
+#if __GLASGOW_HASKELL__ >= 704
+{-# LANGUAGE ConstraintKinds #-}
+#define HCS HasCallStack =>
+#else
+#define HCS
+#endif
+
module Data.CallStack (
- HasCallStack
-, CallStack
+#if __GLASGOW_HASKELL__ >= 704
+ HasCallStack,
+#endif
+ CallStack
, SrcLoc(..)
, callStack
, callSite
@@ -22,14 +30,14 @@
import GHC.Stack (HasCallStack)
#elif MIN_VERSION_base(4,8,1)
type HasCallStack = (?callStack :: GHC.CallStack)
-#else
+#elif __GLASGOW_HASKELL__ >= 704
import GHC.Exts (Constraint)
type HasCallStack = (() :: Constraint)
#endif
type CallStack = [(String, SrcLoc)]
-callStack :: HasCallStack => CallStack
+callStack :: HCS CallStack
#if MIN_VERSION_base(4,9,0)
callStack = drop 1 $ GHC.getCallStack GHC.callStack
#elif MIN_VERSION_base(4,8,1)
@@ -38,5 +46,5 @@
callStack = []
#endif
-callSite :: HasCallStack => Maybe (String, SrcLoc)
+callSite :: HCS Maybe (String, SrcLoc)
callSite = listToMaybe (reverse callStack)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/call-stack-0.2.0/test/Data/CallStackSpec.hs
new/call-stack-0.3.0/test/Data/CallStackSpec.hs
--- old/call-stack-0.2.0/test/Data/CallStackSpec.hs 2019-08-04
03:45:34.000000000 +0200
+++ new/call-stack-0.3.0/test/Data/CallStackSpec.hs 2001-09-09
03:46:40.000000000 +0200
@@ -16,9 +16,9 @@
srcLocPackage = "main"
, srcLocModule = "Example"
, srcLocFile = "test/Example.hs"
- , srcLocStartLine = 11
+ , srcLocStartLine = 17
, srcLocStartCol = 7
- , srcLocEndLine = 11
+ , srcLocEndLine = 17
, srcLocEndCol = 10
}
)
@@ -27,9 +27,9 @@
srcLocPackage = "main"
, srcLocModule = "Example"
, srcLocFile = "test/Example.hs"
- , srcLocStartLine = 8
+ , srcLocStartLine = 14
, srcLocStartCol = 8
- , srcLocEndLine = 8
+ , srcLocEndLine = 14
, srcLocEndCol = 11
}
)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/call-stack-0.2.0/test/Example.hs
new/call-stack-0.3.0/test/Example.hs
--- old/call-stack-0.2.0/test/Example.hs 2019-08-04 03:45:34.000000000
+0200
+++ new/call-stack-0.3.0/test/Example.hs 2001-09-09 03:46:40.000000000
+0200
@@ -1,5 +1,11 @@
-{-# LANGUAGE FlexibleContexts #-}
+{-# LANGUAGE CPP, FlexibleContexts #-}
+
+#if __GLASGOW_HASKELL__ >= 704
{-# LANGUAGE ConstraintKinds #-}
+#define HCS HasCallStack =>
+#else
+#define HCS
+#endif
module Example where
import Data.CallStack
@@ -7,8 +13,8 @@
test :: CallStack
test = foo
-foo :: HasCallStack => CallStack
+foo :: HCS CallStack
foo = bar
-bar :: HasCallStack => CallStack
+bar :: HCS CallStack
bar = callStack
