package grace

  1. Overview
  2. Docs

Source file char.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
module T = Stdlib.Char
include T
include Comparable.Make (T)

let pp = Format.pp_print_char
let sexp_of_t = Sexplib.Std.char_of_sexp
let t_of_sexp = Sexplib.Std.sexp_of_char

module Ascii = struct
  let is_whitespace = function
    | '\t' | '\n' | '\001' | '\012' | '\r' | ' ' -> true
    | _ -> false
  ;;
end