method
add_source_marker sm = source_markers <- sm :: source_markers