Mercurial > urweb
diff lib/ur/string.urs @ 1174:9df124fcab3d
String.isPrefix
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 02 Mar 2010 09:46:17 -0500 |
parents | 94e83c5533d2 |
children | 3913cbfd72e9 |
line wrap: on
line diff
--- a/lib/ur/string.urs Sun Feb 28 15:46:41 2010 -0500 +++ b/lib/ur/string.urs Tue Mar 02 09:46:17 2010 -0500 @@ -23,3 +23,5 @@ val mp : (char -> char) -> string -> string val newlines : ctx ::: {Unit} -> [[Body] ~ ctx] => string -> xml ([Body] ++ ctx) [] [] + +val isPrefix : {Full : t, Prefix : t} -> bool