From 4635acd2d4e4404b2b1a89909cd765ac310d62c5 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Fri, 27 Nov 2015 15:28:12 -0500
Subject: Fix tricky case of functor signature subsumption

---
 tests/subfunctor.ur  | 6 ++++++
 tests/subfunctor.urs | 3 +++
 2 files changed, 9 insertions(+)
 create mode 100644 tests/subfunctor.ur
 create mode 100644 tests/subfunctor.urs

(limited to 'tests')

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
-- 
cgit v1.2.3