lf_or_crlf.ml
email_message
email_message.email_address
1 2 3 4 5 6 7 8 9 10 open! Core type t = [ `LF | `CRLF ] let to_string = function | `LF -> "\n" | `CRLF -> "\r\n" ;;
1 2 3 4 5 6 7 8 9 10
open! Core type t = [ `LF | `CRLF ] let to_string = function | `LF -> "\n" | `CRLF -> "\r\n" ;;