19 lines
281 B
OCaml
19 lines
281 B
OCaml
|
open Angstrom
|
||
|
|
open Let_syntax
|
||
|
|
|
||
|
|
let (_ : int t) =
|
||
|
|
let%bind () = end_of_input in
|
||
|
|
return 1
|
||
|
|
|
||
|
|
let (_ : int t) =
|
||
|
|
let%map (_ : char) = any_char
|
||
|
|
and (_ : string) = string "foo"
|
||
|
|
in
|
||
|
|
2
|
||
|
|
|
||
|
|
let (_ : int t) =
|
||
|
|
let%mapn (_ : char) = any_char
|
||
|
|
and (_ : string) = string "foo"
|
||
|
|
in
|
||
|
|
2
|