setIdDetails :: Id -> IdDetails -> Id
setIdDetails id details = id { id_details = details }
setIdDetails :: Id -> IdDetails -> Id
setIdDetails id details = id { id_details = details }
setIdDetails id details = id { id_details = details }