newtypesNew :: [DataInfo] -> Newtypes
newtypesNew infos
  = Newtypes (M.fromList [(dataInfoName info, info) | info <- infos])
newtypesNew :: [DataInfo] -> Newtypes
newtypesNew infos
  = Newtypes (M.fromList [(dataInfoName info, info) | info <- infos])
newtypesNew infos
  = Newtypes (M.fromList [(dataInfoName info, info) | info <- infos])