mkRealConstr

mkRealConstr :: Real a => DataType -> a -> Constr
base Data.Data