let warning ?current = match current with | None -> warning ~current:true | Some b -> warning ~current:b