From 53109d697cd8ff1aa7e4b8c41f3bd71dd2671fc0 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 26 Jan 2008 16:44:39 -0500 Subject: Check for leftover kind unifs --- src/search.sig | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'src/search.sig') diff --git a/src/search.sig b/src/search.sig index 65fc6aa6..102ef558 100644 --- a/src/search.sig +++ b/src/search.sig @@ -31,9 +31,6 @@ signature SEARCH = sig 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 @@ signature SEARCH = sig -> ('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 -- cgit v1.2.3