Lines Matching refs:match
36 let prefix log_destination ?level ?key date = match log_destination with
38 let level = match level with
41 let key = match key with
46 let key = match key with
146 let level = match level with
173 let init_xenstored_log () = match !xenstored_log_destination with
186 match !xenstored_logger with
221 | XbOp op -> match op with
276 let init_access_log post_rotate = match !access_log_destination with
311 let print = match ty with
329 let print, level = match ty with