Commits

Anonymous committed 70d2b04

Use Cf_lex instead of deprecated Cf_lexer module.

Comments (0)

Files changed (1)

mime/mime_emitter.ml

 open Mime_common
 
 module L = Mime_parser.Lexer
-open Cf_lexer.Op
+open Cf_lex.X.Op
 open Cf_parser.Op
 
 (*
 	pp
 
 let to_seq_ =
-    let weave = Cf_parser.X.weave ~c:(new Cf_lexer.cursor 0) in
+    let weave = Cf_parser.X.weave ~c:(new Cf_parser.cursor 0) in
     fun s -> weave (Cf_seq.of_string s)
 
 let print_char_with_folding_ pp = function
     Format.pp_print_char pp '"'
 
 let atom_lexer_ =
-    Cf_lexer.create (L.raw_atom $= ()) >>= fun () ->
+    Cf_lex.X.create (L.raw_atom $= ()) >>= fun () ->
     Cf_parser.fin
 
 let word pp s =
     | None -> quoted_string pp s
 
 let token_lexer_ =
-    Cf_lexer.create (L.raw_token $= ()) >>= fun () ->
+    Cf_lex.X.create (L.raw_token $= ()) >>= fun () ->
     Cf_parser.fin
 
 let token pp s =
         print_char_with_folding_ pp c
 
 let dot_atom_lexer_ =
-    Cf_lexer.create (L.raw_dot_atom $= ()) >>= fun () ->
+    Cf_lex.X.create (L.raw_dot_atom $= ()) >>= fun () ->
     Cf_parser.fin
 
 let domain_literal pp s =