let tagger_of_path_opt (path_opt : string option) : tr_blk_itm -> tr_blk_itm = match path_opt with |None -> tag_blk_itm_default |Some path -> tagger_of_file path