From 69559dc94815a000729c7ccef8216dec5b5158cc Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 21 Oct 2008 13:41:03 -0400 Subject: listFun uses length --- demo/listFun.ur | 2 ++ 1 file changed, 2 insertions(+) (limited to 'demo/listFun.ur') diff --git a/demo/listFun.ur b/demo/listFun.ur index 74f249b6..c4451e1d 100644 --- a/demo/listFun.ur +++ b/demo/listFun.ur @@ -12,6 +12,8 @@ functor Make(M : sig fun console (ls : list M.t) = return Current list: {toXml ls}
+ Length: {[length ls]}
+