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

structure S:
   sig
      structure T:
         sig
            datatype t = A | B
         end
   end =
   struct
      structure T =
         struct
            datatype t = B | C
         end
   end
Commit	Line	Data
7f918cf1 CE	1	structure S:
	2	sig
	3	structure T:
	4	sig
	5	datatype t = A \| B
	6	end
	7	end =
	8	struct
	9	structure T =
	10	struct
	11	datatype t = B \| C
	12	end
	13	end