Import Upstream version 20180207

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

structure S:
   sig
      datatype t = A | B
   end =
   struct
      datatype t = A | B
      datatype u = B
   end