Source file lf_or_crlf.ml

1
2
3
4
5
6
7
8
9
10
11
open! Core

type t =
  [ `LF
  | `CRLF
  ]

let to_string = function
  | `LF -> "\n"
  | `CRLF -> "\r\n"
;;