File: test_let_syntax_native.ml

package info (click to toggle)
ocaml-angstrom 0.16.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,088 kB
  • sloc: ml: 2,012; makefile: 20; sh: 3
file content (11 lines) | stat: -rw-r--r-- 164 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
 
open Angstrom

let (_ : int t) =
  let* () = end_of_input in
  return 1

let (_ : int t) =
  let+ (_ : char) = any_char
  and+ (_ : string) = string "foo"
  in
  2