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