Issue ToJSON is incomplete

[averagehat]

Is there a reason why this is incomplete? Need to fix this for my own use and for #6

RedmineHs/src/Redmine/JSON.hs

Lines 235 to 288 in 6089fe4

	instance ToJSON Issue where
	toJSON (Issue _id'
	project
	_parent
	_tracker
	_status
	_priority
	_author
	_assigned_to
	_category
	_fixed_version
	subject
	description
	_start_date
	_due_date
	_done_ratio
	_estimated_hours
	_spent_hours
	_custom_fields
	_created_on
	_updated_on
	_journals
	_attachements
	_changesets
	_watchers
	_relations
	_children
	) = object [ "issue" .=
	object [ -- "id" .= id',
	"project_id" .= id_ObjRef project
	-- , "tracker" .= tracker
	-- , "status" .= status
	-- , "priority" .= priority
	-- , "author" .= author
	-- , "assigned_to" .= assigned_to
	-- , "category" .= category
	-- , "fixed_version" .= fixed_version
	, "subject" .= subject
	, "description" .= description
	-- , "start_date" .= start_date
	-- , "due_date" .= due_date
	-- , "done_ratio" .= done_ratio
	-- , "estimated_hours" .= estimated_hours
	-- , "spent_hours" .= spent_hours
	-- , "custom_fields" .= custom_fields
	-- , "created_on" .= created_on
	-- , "updated_on" .= updated_on
	-- , "journals" .= journals
	-- , "attachements" .= attachements
	-- , "changesets" .= changesets
	-- , "watchers" .= watchers
	-- , "relations" .= relations
	-- , "children" .= children
	]]

[lookunder]

I do not recall any reason. It was a while ago. Go ahead and implement it for your need.