diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-06-16 14:38:01 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-16 14:38:01 -0400 |
commit | 4dce690086c8d6132c22d5c47a0561a4b1261293 (patch) | |
tree | 58dd4551f8c5d971e12e1c704f7abd9d90f3373e /src/list_util.sig | |
parent | c23f27988ff76b4923a63ced2452c4fd7787a745 (diff) |
Fix a bug in type class enrichment from substructures
Diffstat (limited to 'src/list_util.sig')
-rw-r--r-- | src/list_util.sig | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/list_util.sig b/src/list_util.sig index a89998b2..6e1cd5a5 100644 --- a/src/list_util.sig +++ b/src/list_util.sig @@ -36,6 +36,8 @@ signature LIST_UTIL = sig val foldlMap : ('data1 * 'state -> 'data2 * 'state) -> 'state -> 'data1 list -> 'data2 list * 'state val foldlMapPartial : ('data1 * 'state -> 'data2 option * 'state) -> 'state -> 'data1 list -> 'data2 list * 'state + val foldlMapiPartial : (int * 'data1 * 'state -> 'data2 option * 'state) + -> 'state -> 'data1 list -> 'data2 list * 'state val foldlMapConcat : ('data1 * 'state -> 'data2 list * 'state) -> 'state -> 'data1 list -> 'data2 list * 'state val foldlMapAbort : ('data1 * 'state -> ('data2 * 'state) option) -> 'state -> 'data1 list -> ('data2 list * 'state) option @@ -44,6 +46,7 @@ signature LIST_UTIL = sig val searchi : (int * 'a -> 'b option) -> 'a list -> 'b option val mapi : (int * 'a -> 'b) -> 'a list -> 'b list + val mapiPartial : (int * 'a -> 'b option) -> 'a list -> 'b list val foldli : (int * 'a * 'b -> 'b) -> 'b -> 'a list -> 'b val foldri : (int * 'a * 'b -> 'b) -> 'b -> 'a list -> 'b |