summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2015-11-27 15:28:12 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2015-11-27 15:28:12 -0500
commit4635acd2d4e4404b2b1a89909cd765ac310d62c5 (patch)
tree3a5805f65fb9c84460ab85f8c09f40e49dc9f4d9 /tests
parent9e392faf0f78cb6b96708d96ed9c5fb6f9dd26dd (diff)
Fix tricky case of functor signature subsumption
Diffstat (limited to 'tests')
-rw-r--r--tests/subfunctor.ur6
-rw-r--r--tests/subfunctor.urs3
2 files changed, 9 insertions, 0 deletions
diff --git a/tests/subfunctor.ur b/tests/subfunctor.ur
new file mode 100644
index 00000000..3c2aa83f
--- /dev/null
+++ b/tests/subfunctor.ur
@@ -0,0 +1,6 @@
+functor F(M : sig con fs :: {Type} end) = struct
+ open M
+
+ functor G(M : sig val x : $(map sql_injectable_prim fs) end) = struct
+ end
+end
diff --git a/tests/subfunctor.urs b/tests/subfunctor.urs
new file mode 100644
index 00000000..db393d21
--- /dev/null
+++ b/tests/subfunctor.urs
@@ -0,0 +1,3 @@
+functor F(M : sig con fs :: {Type} end) : sig
+ functor G(M : sig val x : $(map sql_injectable_prim M.fs) end) : sig end
+end