Import Upstream version 20180207
[hcoop/debian/mlton.git] / regression / fail / modules.30.sml
1 structure S:> sig type t end = struct type t = unit end
2 val _ = (): S.t