18 lines
281 B
OCaml
18 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
|