File: test.ml

package info (click to toggle)
pipebang 113.00.00-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 316 kB
  • ctags: 619
  • sloc: ml: 5,844; makefile: 55
file content (9 lines) | stat: -rw-r--r-- 157 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
let f x = x
let g x = x
let h x = x
let _ =
  (1 |! f) |! (g |! h)

type 'a t  = X | F of 'a
let _constr_on_left  f = X |> f
let _constr_on_right x = x |> F