diff options
Diffstat (limited to 'lib/ur/string.ur')
| -rw-r--r-- | lib/ur/string.ur | 3 |
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 |