Source file `ocamlformat_stdlib.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
include Base
include Stdio

module Fpath = Fpath_ext
module List = List_ext
module String = String_ext
module Warning = Warning
module Format = Stdlib.Format
module Filename = Stdlib.Filename

let ( >> ) f g x = g (f x)

let impossible msg = failwith msg

let check f x =
  assert (
    ignore (f x) ;
    true ) ;
  x