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