Fixed issue with datatype constructors inside functors; now on to some problem with modules inside functors

type r = {A : int, B : int, C : float}
type string = int

val x : r = {A = 1, B = "hi", C = 2.3}