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

structure S:
   sig
      datatype t = A | B of unit
   end =
   struct
      datatype t = A | B of int

      val rec B = fn () => A
   end
Commit	Line	Data
7f918cf1 CE	1	structure S:
	2	sig
	3	datatype t = A \| B of unit
	4	end =
	5	struct
	6	datatype t = A \| B of int
	7
	8	val rec B = fn () => A
	9	end