[Pkg-haskell-commits] darcs: hmake: Give type signature to make it compile

[Joachim Breitner]

Thu Jun  2 18:24:04 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Give type signature to make it compile
  Ignore-this: 7b1baff90cb2c16c0981542264714005

    A ./patches/Graph.hs-give-typesig
    M ./patches/series +1

Thu Jun  2 18:24:04 UTC 2011  Joachim Breitner <mail at joachim-breitner.de>
  * Give type signature to make it compile
  Ignore-this: 7b1baff90cb2c16c0981542264714005
diff -rN -u old-hmake//patches/Graph.hs-give-typesig new-hmake//patches/Graph.hs-give-typesig
--- old-hmake//patches/Graph.hs-give-typesig	1970-01-01 00:00:00.000000000 +0000
+++ new-hmake//patches/Graph.hs-give-typesig	2011-06-02 18:26:21.176277118 +0000
@@ -0,0 +1,23 @@
+Author: Joachim Breitner <nomeata at debian.org>
+
+--- hmake-3.14.orig/src/hmake/Graph.hs
++++ hmake-3.14/src/hmake/Graph.hs
+@@ -1,3 +1,4 @@
++{-# LANGUAGE ScopedTypeVariables #-}
+ -----------------------------------------------------------------------------
+ -- |
+ -- Module      :  Graph
+@@ -62,12 +63,10 @@ assocdefeq eq i ((k, v) : r) d =
+     if eq i k then v else assocdefeq eq i r d
+ 
+ -- | The only Graph function used in hmake... scc means Strongly Connected Components
+-scceq :: (a -> a -> Bool) -> [(a,[a])] -> [[(a,[a])]]
++scceq :: forall a. (a -> a -> Bool) -> [(a,[a])] -> [[(a,[a])]]
+ scceq eq gG =
+     let
+-#if defined(__NHC__)
+         searchc :: Int -> [(a,Int)] -> (a,[a]) -> ((Int,[(a,Int)],[(a,[a])],Int), [[(a,[a])]])
+-#endif
+         searchc n low vv@(v, es) =
+             let n' = n + 1
+                 low' = (v, n') : low
diff -rN -u old-hmake//patches/series new-hmake//patches/series
--- old-hmake//patches/series	2011-06-02 18:26:21.155774149 +0000
+++ new-hmake//patches/series	2011-06-02 18:26:21.200272857 +0000
@@ -5,3 +5,4 @@
 no-package-lang.patch
 use-editline-instead-of-readline.patch
 avoid-CPP
+Graph.hs-give-typesig