Hello community,
here is the log from the commit of package ghc-call-stack for openSUSE:Factory
checked in at 2019-08-13 13:14:52
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/ghc-call-stack (Old)
and /work/SRC/openSUSE:Factory/.ghc-call-stack.new.9556 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "ghc-call-stack"
Tue Aug 13 13:14:52 2019 rev:6 rq:721028 version:0.2.0
Changes:
--------
--- /work/SRC/openSUSE:Factory/ghc-call-stack/ghc-call-stack.changes
2018-10-25 08:23:04.159891745 +0200
+++ /work/SRC/openSUSE:Factory/.ghc-call-stack.new.9556/ghc-call-stack.changes
2019-08-13 13:14:54.657510604 +0200
@@ -1,0 +2,6 @@
+Sun Aug 4 02:01:53 UTC 2019 - psim...@suse.com
+
+- Update call-stack to version 0.2.0.
+ Upstream does not provide a change log file.
+
+-------------------------------------------------------------------
Old:
----
call-stack-0.1.0.tar.gz
New:
----
call-stack-0.2.0.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ ghc-call-stack.spec ++++++
--- /var/tmp/diff_new_pack.Nb3wFx/_old 2019-08-13 13:14:56.361510210 +0200
+++ /var/tmp/diff_new_pack.Nb3wFx/_new 2019-08-13 13:14:56.393510203 +0200
@@ -1,7 +1,7 @@
#
# spec file for package ghc-call-stack
#
-# Copyright (c) 2018 SUSE LINUX GmbH, Nuernberg, Germany.
+# Copyright (c) 2019 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
@@ -19,7 +19,7 @@
%global pkg_name call-stack
%bcond_with tests
Name: ghc-%{pkg_name}
-Version: 0.1.0
+Version: 0.2.0
Release: 0
Summary: Use GHC call-stacks in a backward compatible way
License: MIT
++++++ call-stack-0.1.0.tar.gz -> call-stack-0.2.0.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/call-stack-0.1.0/call-stack.cabal
new/call-stack-0.2.0/call-stack.cabal
--- old/call-stack-0.1.0/call-stack.cabal 2016-10-03 12:16:09.000000000
+0200
+++ new/call-stack-0.2.0/call-stack.cabal 2019-08-04 03:45:34.000000000
+0200
@@ -1,9 +1,13 @@
--- This file has been generated from package.yaml by hpack version 0.15.0.
+cabal-version: 1.12
+
+-- This file has been generated from package.yaml by hpack version 0.31.0.
--
-- see: https://github.com/sol/hpack
+--
+-- hash: ead73de1f27ca13dbc12434ae8a06a86ce7c6fc59801f6807140632fc1e44df8
name: call-stack
-version: 0.1.0
+version: 0.2.0
synopsis: Use GHC call-stacks in a backward compatible way
category: Data
homepage: https://github.com/sol/call-stack#readme
@@ -12,7 +16,6 @@
license: MIT
license-file: LICENSE
build-type: Simple
-cabal-version: >= 1.10
source-repository head
type: git
@@ -23,7 +26,7 @@
src
ghc-options: -Wall
build-depends:
- base >= 4.5.0.0 && < 5
+ base >=4.5.0.0 && <5
exposed-modules:
Data.CallStack
other-modules:
@@ -38,11 +41,12 @@
test
ghc-options: -Wall
build-depends:
- base >= 4.5.0.0 && < 5
- , nanospec
+ base >=4.5.0.0 && <5
, call-stack
+ , nanospec
other-modules:
Data.CallStackSpec
Example
Util
+ Paths_call_stack
default-language: Haskell2010
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/call-stack-0.1.0/src/Data/CallStack.hs
new/call-stack-0.2.0/src/Data/CallStack.hs
--- old/call-stack-0.1.0/src/Data/CallStack.hs 2016-10-03 12:16:09.000000000
+0200
+++ new/call-stack-0.2.0/src/Data/CallStack.hs 2019-08-04 03:45:34.000000000
+0200
@@ -8,8 +8,10 @@
, CallStack
, SrcLoc(..)
, callStack
+, callSite
) where
+import Data.Maybe
import Data.SrcLoc
#if MIN_VERSION_base(4,8,1)
@@ -35,3 +37,6 @@
#else
callStack = []
#endif
+
+callSite :: HasCallStack => Maybe (String, SrcLoc)
+callSite = listToMaybe (reverse callStack)
