From 63f060dcf62a23c518379c46af40461afacfb27c Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 5 Jul 2007 14:08:58 +0000 Subject: hacky solution to name resolution warnings --- doc/tutorial-next/StringOper.gf | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 doc/tutorial-next/StringOper.gf (limited to 'doc/tutorial-next/StringOper.gf') diff --git a/doc/tutorial-next/StringOper.gf b/doc/tutorial-next/StringOper.gf new file mode 100644 index 000000000..803d957f0 --- /dev/null +++ b/doc/tutorial-next/StringOper.gf @@ -0,0 +1,10 @@ +resource StringOper = { + oper + SS : Type = {s : Str} ; + + ss : Str -> SS = \x -> {s = x} ; + + cc : SS -> SS -> SS = \x,y -> ss (x.s ++ y.s) ; + + prefix : Str -> SS -> SS = \p,x -> ss (p ++ x.s) ; +} \ No newline at end of file -- cgit v1.2.3