X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=type-restrictions%2Ftest.icl;fp=type-restrictions%2Ftest.icl;h=5ab20803ec49b5cf78b48ba56a824f9f4fec2592;hb=9c069628612d9cc4198d3a88036d68f653fa9cb6;hp=0000000000000000000000000000000000000000;hpb=2dc6fc76dd605061f2a8fbe41632f73e2c3f128a;p=clean-tests.git

diff --git a/type-restrictions/test.icl b/type-restrictions/test.icl
new file mode 100644
index 0000000..5ab2080
--- /dev/null
+++ b/type-restrictions/test.icl
@@ -0,0 +1,8 @@
+module test
+
+import StdEnv
+
+:: T a = T a & toString a
+
+Start :: T (T Int)
+Start = T (T 42)