Laconic -> Ur

1 files changed, 18 insertions, 0 deletions

diff --git a/tests/type_classMod2.ur b/tests/type_classMod2.ur
new file mode 100644
index 00000000..ba700c22
--- /dev/null
+++ b/tests/type_classMod2.ur
@@ -0,0 +1,18 @@
+signature S = sig
+        class c
+        val default : t :: Type -> c t -> t
+
+        val string_c : c string
+        val int_c : c int
+end
+
+structure M : S = struct
+        class c t = t
+        val default = fn t :: Type => fn v : c t => v
+
+        val int_c : c int = 0
+        val string_c : c string = "Hi"
+end
+
+val hi = M.default [string] _
+val zero = M.default [int] _