src/compile.mli

   1 type text_query = [ `Prefix | `Suffix | `Equals | `Contains ]
   2 val compile : XPath.Ast.t -> Ata.t * (text_query * string) list option