annotate tests/subfunctor.ur @ 2196:100352dbae36

Fix tricky case of functor signature subsumption
author Adam Chlipala <adam@chlipala.net>
date Fri, 27 Nov 2015 15:28:12 -0500
parents
children
rev   line source
adam@2196 1 functor F(M : sig con fs :: {Type} end) = struct
adam@2196 2 open M
adam@2196 3
adam@2196 4 functor G(M : sig val x : $(map sql_injectable_prim fs) end) = struct
adam@2196 5 end
adam@2196 6 end