newtypesLookup :: Name -> Newtypes -> Maybe DataInfo
newtypesLookup name (Newtypes m)
  = M.lookup name m
newtypesLookup :: Name -> Newtypes -> Maybe DataInfo
newtypesLookup name (Newtypes m)
  = M.lookup name m
newtypesLookup name (Newtypes m)
  = M.lookup name m