diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-01-26 16:44:39 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-01-26 16:44:39 -0500 |
commit | 53109d697cd8ff1aa7e4b8c41f3bd71dd2671fc0 (patch) | |
tree | 0da23cead212d30f6066b38f5a13b7fdfb3e0a15 /src/search.sig | |
parent | e7e2ffc58a4f120801ae69217032948e511af213 (diff) |
Check for leftover kind unifs
Diffstat (limited to 'src/search.sig')
-rw-r--r-- | src/search.sig | 9 |
1 files changed, 3 insertions, 6 deletions
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 |