package ppx_expect

  1. Overview
  2. Docs
package ppx_expect
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file choose_tag.ml

1
2
3
4
5
6
7
8
9
10
11
open Base

let choose ~default body =
  let terminators = Lexer.extract_quoted_string_terminators body in
  let rec loop tag =
    if List.mem terminators tag ~equal:String.equal then loop (tag ^ "x") else tag
  in
  if List.mem terminators default ~equal:String.equal
  then loop (if String.is_empty default then "xxx" else default ^ "_xxx")
  else default
;;