[DHG_packages] 01/01: text-show: patch for "current" base

[Clint Adams]

This is an automated email from the git hooks/post-receive script.

clint pushed a commit to branch master
in repository DHG_packages.

commit adc6d406966e0999426d9c9ea897d0f32b8b3094
Author: Clint Adams <clint at debian.org>
Date:   Sun Dec 6 20:18:59 2015 -0500

    text-show: patch for "current" base
---
 .../debian/patches/errorcallwithlocation           | 24 ++++++++++++++++++++++
 p/haskell-text-show/debian/patches/series          |  1 +
 2 files changed, 25 insertions(+)

diff --git a/p/haskell-text-show/debian/patches/errorcallwithlocation b/p/haskell-text-show/debian/patches/errorcallwithlocation
new file mode 100644
index 0000000..c8a9ff6
--- /dev/null
+++ b/p/haskell-text-show/debian/patches/errorcallwithlocation
@@ -0,0 +1,24 @@
+This seems to have been added after base 4.8.2.0?
+
+--- a/src/TextShow/Control/Exception.hs
++++ b/src/TextShow/Control/Exception.hs
+@@ -210,7 +210,7 @@
+ --
+ -- /Since: 2/
+ showbErrorCall :: ErrorCall -> Builder
+-#if MIN_VERSION_base(4,8,2)
++#if MIN_VERSION_base(4,9,0)
+ showbErrorCall (ErrorCallWithLocation err "")  = fromString err
+ showbErrorCall (ErrorCallWithLocation err loc) =
+   fromString err <> singleton '\n' <> fromString loc
+--- a/tests/Instances/Control/Exception.hs
++++ b/tests/Instances/Control/Exception.hs
+@@ -98,7 +98,7 @@
+     arbitrary = RecUpdError <$> arbitrary
+ 
+ instance Arbitrary ErrorCall where
+-#if MIN_VERSION_base(4,8,2)
++#if MIN_VERSION_base(4,9,0)
+     arbitrary = ErrorCallWithLocation <$> arbitrary <*> arbitrary
+ #else
+     arbitrary = ErrorCall <$> arbitrary
diff --git a/p/haskell-text-show/debian/patches/series b/p/haskell-text-show/debian/patches/series
index 32559cf..ee334ee 100644
--- a/p/haskell-text-show/debian/patches/series
+++ b/p/haskell-text-show/debian/patches/series
@@ -1,2 +1,3 @@
 no-nats
 no-bytestring-builder
+errorcallwithlocation

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/DHG_packages.git