camlspotter avatar camlspotter committed 7ad0373

removed begin_with

Comments (0)

Files changed (2)

   let (/?/) : 'a list t -> 'a list t -> 'a list t = fun c1 c2 ->
     (c1 >>= fun x -> c2 >>= fun y -> return (x @ y)) <!> c2
 
-  let begin_with c1 c2 =
-    option c1 >>= function
-      | None -> return None
-      | Some _ -> c2 >>= fun v -> return (Some v)
-
   let set_stream new_st _st = Profile.incr (); Ok ((), new_st)
 
   let run : 'a t -> Str.t -> ('a * Str.t, error) Result.t = fun t st ->
 
 
 
-  (** Misc *)
-    
-  val begin_with : 'a t -> 'b t -> 'b option t
-  (** [begin_with b w]: if [b] matches then try [w] and returns [w]'s result.
-      Otherwise, it returns [None]. *)
-  (* CR jfuruse: should be removed *)
-
-
   (** Monad runner *)
 
   val run : 'a t -> Str.t -> ('a * Str.t, error) Result.t
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.