[Pkg-haskell-commits] darcs: haskell-numeric-quest: Add patches/Show-constraint.patch.

[Iulian Udrea]

Sun Feb  5 12:48:22 UTC 2012  Iulian Udrea <iulian at physics.org>
  * Add patches/Show-constraint.patch.
  Ignore-this: 878a66a6a5a94c6ddf39dece9f46f49b

    M ./changelog +1
    A ./patches/Show-constraint.patch
    M ./patches/series +1

Sun Feb  5 12:48:22 UTC 2012  Iulian Udrea <iulian at physics.org>
  * Add patches/Show-constraint.patch.
  Ignore-this: 878a66a6a5a94c6ddf39dece9f46f49b
diff -rN -u old-haskell-numeric-quest//changelog new-haskell-numeric-quest//changelog
--- old-haskell-numeric-quest//changelog	2012-02-05 12:55:21.662252257 +0000
+++ new-haskell-numeric-quest//changelog	2012-02-05 12:55:21.666253014 +0000
@@ -3,6 +3,7 @@
   * New upstream release.
   * Add patches/Eq-constraints.patch: Num does no longer imply Eq or Show. See
     GHC 7.4.1 release notes.
+  * Add patches/Show-constraint.patch.
 
  -- Iulian Udrea <iulian at physics.org>  Sat, 04 Feb 2012 23:58:31 +0000
 
diff -rN -u old-haskell-numeric-quest//patches/series new-haskell-numeric-quest//patches/series
--- old-haskell-numeric-quest//patches/series	2012-02-05 12:55:21.662252257 +0000
+++ new-haskell-numeric-quest//patches/series	2012-02-05 12:55:21.670253121 +0000
@@ -1 +1,2 @@
 Eq-constraints.patch
+Show-constraint.patch
diff -rN -u old-haskell-numeric-quest//patches/Show-constraint.patch new-haskell-numeric-quest//patches/Show-constraint.patch
--- old-haskell-numeric-quest//patches/Show-constraint.patch	1970-01-01 00:00:00.000000000 +0000
+++ new-haskell-numeric-quest//patches/Show-constraint.patch	2012-02-05 12:55:21.670253121 +0000
@@ -0,0 +1,11 @@
+--- a/QuantumVector.lhs
++++ b/QuantumVector.lhs
+@@ -1129,7 +1129,7 @@
+ >     showsPrec n (j :<+ k) = showsPrec n j . showString " + " . showsPrec n k
+ 
+ 
+-> showsScalar :: (RealFloat t) => Int -> Complex t -> String -> String
++> showsScalar :: (Show t, RealFloat t) => Int -> Complex t -> String -> String
+ > showsScalar n x@(a :+ b)
+ >     | b == 0    = showsPrec n a . showString " "
+ >     | otherwise = showString "(" .showsPrec n x . showString ") "