summaryrefslogtreecommitdiff
path: root/lib/ur/string.ur
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ur/string.ur')
-rw-r--r--lib/ur/string.ur3
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/ur/string.ur b/lib/ur/string.ur
index 07d7e6b8..f19ce174 100644
--- a/lib/ur/string.ur
+++ b/lib/ur/string.ur
@@ -53,3 +53,6 @@ fun newlines [ctx] [[Body] ~ ctx] s : xml ([Body] ++ ctx) [] [] =
case split s #"\n" of
None => cdata s
| Some (s1, s2) => <xml>{[s1]}<br/>{newlines s2}</xml>
+
+fun isPrefix {Full = f, Prefix = p} =
+ length f >= length p && substring f {Start = 0, Len = length p} = p