Import Upstream version 20180207
[hcoop/debian/mlton.git] / regression / fail / modules.20.sml
1 functor F (type t) = struct fun f (x: t) = x = x end