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

functor F (type t
           type u) =
   struct
      val id: t -> u = fn x => x
   end
Commit	Line	Data
7f918cf1 CE	1	functor F (type t
	2	type u) =
	3	struct
	4	val id: t -> u = fn x => x
	5	end