[Pkg-haskell-commits] darcs: haskell-lens: Disable floating point doctest, they fail on kfreebsd-i386.

[Joachim Breitner]

Thu May 15 07:34:24 UTC 2014  Joachim Breitner <mail at joachim-breitner.de>
  * Disable floating point doctest, they fail on kfreebsd-i386.

    M ./changelog +6
    M ./patches/backport-testsuite-failure-fix.patch -6 +7

Thu May 15 07:34:24 UTC 2014  Joachim Breitner <mail at joachim-breitner.de>
  * Disable floating point doctest, they fail on kfreebsd-i386.
diff -rN -u old-haskell-lens/changelog new-haskell-lens/changelog
--- old-haskell-lens/changelog	2014-05-15 07:44:52.342597397 +0000
+++ new-haskell-lens/changelog	2014-05-15 07:44:52.358597401 +0000
@@ -1,3 +1,9 @@
+haskell-lens (4.1.2-4) UNRELEASED; urgency=medium
+
+  * Disable floating point doctest, they fail on kfreebsd-i386.
+
+ -- Joachim Breitner <nomeata at debian.org>  Thu, 15 May 2014 09:33:57 +0200
+
 haskell-lens (4.1.2-3) unstable; urgency=medium
 
   * Do not run hlint tests
diff -rN -u old-haskell-lens/patches/backport-testsuite-failure-fix.patch new-haskell-lens/patches/backport-testsuite-failure-fix.patch
--- old-haskell-lens/patches/backport-testsuite-failure-fix.patch	2014-05-15 07:44:52.342597397 +0000
+++ new-haskell-lens/patches/backport-testsuite-failure-fix.patch	2014-05-15 07:44:52.350597399 +0000
@@ -1,15 +1,16 @@
-Origin: https://github.com/ekmett/lens/commit/1a59eb2fc012549dc922596d48db88bbc611b561
 Description: Fix testsuite failure on some archs
---- a/src/Numeric/Lens.hs
-+++ b/src/Numeric/Lens.hs
-@@ -159,8 +159,8 @@
+ Upstream tried to fix this on https://github.com/ekmett/lens/commit/1a59eb2fc012549dc922596d48db88bbc611b561
+ but it still did not work on all arches, so we simply drop the check for now.
+Index: haskell-lens-4.1.2/src/Numeric/Lens.hs
+===================================================================
+--- haskell-lens-4.1.2.orig/src/Numeric/Lens.hs	2014-05-15 09:32:52.456506391 +0200
++++ haskell-lens-4.1.2/src/Numeric/Lens.hs	2014-05-15 09:33:17.044505416 +0200
+@@ -159,8 +159,6 @@
  --
  -- Note: This errors for n = 0
  --
 --- >>> au (exponentiating 2._Unwrapping Sum) (foldMapOf each) (3,4)
 --- 5.0
-+-- >>> au (exponentiating 2._Unwrapping Sum) (foldMapOf each) (3,4) == 5
-+-- True
  exponentiating :: (Floating a, Eq a) => a -> Iso' a a
  exponentiating 0 = error "Numeric.Lens.exponentiating: exponent 0"
  exponentiating n = iso (**n) (**recip n)