[DHG_packages] 06/34: vector-algorithms: Build with ghc-8.0.2

[Ilias Tsitsimpis]

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

iliastsi-guest pushed a commit to branch ghc-8.0.2
in repository DHG_packages.

commit 7b71a43e342368044a7f562d450c78bc20420c3f
Author: Ilias Tsitsimpis <i.tsitsimpis at gmail.com>
Date:   Wed Jan 25 21:20:03 2017 +0200

    vector-algorithms: Build with ghc-8.0.2
---
 p/haskell-vector-algorithms/debian/changelog       |  6 +++
 .../debian/patches/ghc-8.0.2                       | 61 ++++++++++++++++++++++
 p/haskell-vector-algorithms/debian/patches/series  |  1 +
 3 files changed, 68 insertions(+)

diff --git a/p/haskell-vector-algorithms/debian/changelog b/p/haskell-vector-algorithms/debian/changelog
index 5751e4c..3c994a0 100644
--- a/p/haskell-vector-algorithms/debian/changelog
+++ b/p/haskell-vector-algorithms/debian/changelog
@@ -1,3 +1,9 @@
+haskell-vector-algorithms (0.7.0.1-6) unstable; urgency=medium
+
+  * Patch to build with ghc-8.0.2.
+
+ -- Ilias Tsitsimpis <i.tsitsimpis at gmail.com>  Wed, 25 Jan 2017 18:57:46 +0200
+
 haskell-vector-algorithms (0.7.0.1-5) unstable; urgency=medium
 
   * Upload to unstable as part of GHC 8 transition.
diff --git a/p/haskell-vector-algorithms/debian/patches/ghc-8.0.2 b/p/haskell-vector-algorithms/debian/patches/ghc-8.0.2
new file mode 100644
index 0000000..8c8db4a
--- /dev/null
+++ b/p/haskell-vector-algorithms/debian/patches/ghc-8.0.2
@@ -0,0 +1,61 @@
+Description: Build with ghc-8.0.2
+Author: Ilias Tsitsimpis <i.tsitsimpis at gmail.com>
+Bug: http://hub.darcs.net/dolio/vector-algorithms/issue/9
+Forwarded: no
+
+Index: b/tests/properties/Tests.hs
+===================================================================
+--- a/tests/properties/Tests.hs
++++ b/tests/properties/Tests.hs
+@@ -1,4 +1,4 @@
+-{-# LANGUAGE ImpredicativeTypes, RankNTypes, TypeOperators, FlexibleContexts #-}
++{-# LANGUAGE ImpredicativeTypes, RankNTypes, TypeOperators, FlexibleContexts, ScopedTypeVariables #-}
+ 
+ module Main (main) where
+ 
+@@ -42,7 +42,7 @@ args = stdArgs
+        , maxDiscardRatio = 2
+        }
+ 
+-check_Int_sort = forM_ algos $ \(name,algo) ->
++check_Int_sort = forM_ algos $ \(name,algo :: Algo Int ()) ->
+   quickCheckWith args (label name . prop_fullsort algo)
+  where
+  algos :: [(String, Algo Int ())]
+@@ -53,7 +53,7 @@ check_Int_sort = forM_ algos $ \(name,al
+          , ("timsort", T.sort)
+          ]
+ 
+-check_Int_partialsort = forM_ algos $ \(name,algo) ->
++check_Int_partialsort = forM_ algos $ \(name,algo :: SizeAlgo Int ()) ->
+   quickCheckWith args (label name . prop_partialsort algo)
+  where
+  algos :: [(String, SizeAlgo Int ())]
+@@ -61,7 +61,7 @@ check_Int_partialsort = forM_ algos $ \(
+          , ("heap partialsort", H.partialSort)
+          ]
+ 
+-check_Int_select = forM_ algos $ \(name,algo) ->
++check_Int_select = forM_ algos $ \(name,algo :: SizeAlgo Int ()) ->
+   quickCheckWith args (label name . prop_select algo)
+  where
+  algos :: [(String, SizeAlgo Int ())]
+@@ -117,14 +117,14 @@ check_optimal = do qc . label "size 2" $
+ 
+ check_permutation = do
+   qc $ label "introsort"    . prop_permutation (INT.sort :: Algo Int ())
+-  qc $ label "intropartial" . prop_sized (const . prop_permutation)
++  qc $ label "intropartial" . prop_sized (\x -> const $ prop_permutation x)
+                                          (INT.partialSort :: SizeAlgo Int ())
+-  qc $ label "introselect"  . prop_sized (const . prop_permutation)
++  qc $ label "introselect"  . prop_sized (\x -> const $ prop_permutation x)
+                                          (INT.select :: SizeAlgo Int ())
+   qc $ label "heapsort"     . prop_permutation (H.sort :: Algo Int ())
+-  qc $ label "heappartial"  . prop_sized (const . prop_permutation)
++  qc $ label "heappartial"  . prop_sized (\x -> const $ prop_permutation x)
+                                          (H.partialSort :: SizeAlgo Int ())
+-  qc $ label "heapselect"   . prop_sized (const . prop_permutation)
++  qc $ label "heapselect"   . prop_sized (\x -> const $ prop_permutation x)
+                                          (H.select :: SizeAlgo Int ())
+   qc $ label "mergesort"    . prop_permutation (M.sort :: Algo Int    ())
+   qc $ label "timsort"      . prop_permutation (T.sort :: Algo Int    ())
diff --git a/p/haskell-vector-algorithms/debian/patches/series b/p/haskell-vector-algorithms/debian/patches/series
new file mode 100644
index 0000000..02854cb
--- /dev/null
+++ b/p/haskell-vector-algorithms/debian/patches/series
@@ -0,0 +1 @@
+ghc-8.0.2

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