More string processing

1 files changed, 3 insertions, 0 deletions

diff --git a/lib/ur/string.urs b/lib/ur/string.urs
index 55133578..0861279d 100644
--- a/lib/ur/string.urs
+++ b/lib/ur/string.urs
@@ -11,6 +11,7 @@ val sub : t -> int -> char
 val suffix : t -> int -> string
 
 val index : t -> char -> option int
+val sindex : {Haystack : t, Needle : t} -> option int
 val atFirst : t -> char -> option string
 
 val mindex : {Haystack : t, Needle : t} -> option int
@@ -24,6 +25,8 @@ val split : t -> char -> option (string * string)
 val split' : t -> char -> option (string * string) (* The matched character is kept at the beginning of the suffix. *)
 val msplit : {Haystack : t, Needle : t} -> option (string * char * string)
 
+val ssplit : {Haystack : t, Needle : t} -> option (string * string)
+
 val all : (char -> bool) -> string -> bool
 val mp : (char -> char) -> string -> string