Mercurial > urweb

diff src/search.sig @ 6:38bf996e1c2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Check for leftover kind unifs
author Adam Chlipala <adamc@hcoop.net>
date Sat, 26 Jan 2008 16:44:39 -0500
parents 64f09f7822c3
children e97c6d335869
line wrap: on
line diff
--- a/src/search.sig	Sat Jan 26 16:02:47 2008 -0500
+++ b/src/search.sig	Sat Jan 26 16:44:39 2008 -0500
@@ -31,9 +31,6 @@
              Return of 'abort
            | Continue of 'state
 
-    type ('data, 'state, 'abort) mapfold_arg =
-         'data * 'state -> ('data * 'state, 'abort) result
-
     type ('data, 'state, 'abort) mapfolder =
          'data -> 'state -> ('data * 'state, 'abort) result
 
@@ -52,11 +49,11 @@
                -> ('state2, 'abort) result
 
     val bind2 : ('state2 -> ('state1 * 'state2, 'abort) result)
-               * ('state1 -> 'state2 -> ('state1 * 'state2, 'abort) result)
-               -> ('state2 -> ('state1 * 'state2, 'abort) result)
+               * ('state1 -> 'state2 -> ('state1' * 'state2, 'abort) result)
+               -> ('state2 -> ('state1' * 'state2, 'abort) result)
 
     val bindP : (('state11 * 'state12) * 'state2, 'abort) result
-                * ('state11 * 'state2 -> ('state11 * 'state2, 'abort) result)
+                * ('state11 -> 'state2 -> ('state11 * 'state2, 'abort) result)
                 -> (('state11 * 'state12) * 'state2, 'abort) result
 
 end