view tests/subfunctor.ur @ 2201:1091227f535a

Unnest properly in presence of kind polymorphism
author Adam Chlipala <adam@chlipala.net>
date Sun, 20 Dec 2015 13:41:35 -0500
parents 100352dbae36
children
line wrap: on
line source
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