diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-07-05 14:08:58 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-07-05 14:08:58 +0000 |
| commit | 63f060dcf62a23c518379c46af40461afacfb27c (patch) | |
| tree | 40e0ce806203b39729965bc23e04a0d3d1e18058 /doc/tutorial-next/StringOper.gf | |
| parent | 4d228365aca9b5ed2ea90dd706a866042e776b14 (diff) | |
hacky solution to name resolution warnings
Diffstat (limited to 'doc/tutorial-next/StringOper.gf')
| -rw-r--r-- | doc/tutorial-next/StringOper.gf | 10 |
1 files changed, 10 insertions, 0 deletions
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 |