Import Upstream version 20180207

[hcoop/debian/mlton.git] / regression / fail / modules.38.sml

structure S:
   sig
      type t
   end where type t = int * int
   =
   struct
      type t = int
   end