sePackageId p =
  upd (\s -> s{ packageFlags = ExposePackageId p : packageFlags s })
hid
exposePackageId p =
  upd (\s -> s{ packageFlags = ExposePackageId p : packageFlags s })
exposePackageId p =
  upd (\s -> s{ packageFlags = ExposePackageId p : packageFlags s })