From bdcf695651fbeff603d6f1c061b410c0cb733dcb Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 10 Jan 2010 13:44:22 -0500
Subject: Reduce concatenations of the empty record; unpoly non-recursive
 functions

---
 lib/ur/string.urs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/ur/string.urs')

diff --git a/lib/ur/string.urs b/lib/ur/string.urs
index fda30ad9..5590b50c 100644
--- a/lib/ur/string.urs
+++ b/lib/ur/string.urs
@@ -20,3 +20,5 @@ val split : t -> char -> option (string * string)
 val msplit : {Haystack : t, Needle : t} -> option (string * char * string)
 
 val all : (char -> bool) -> string -> bool
+
+val newlines : ctx ::: {Unit} -> [[Body] ~ ctx] => string -> xml ([Body] ++ ctx) [] []
-- 
cgit v1.2.3