package email_message

  1. Overview
  2. Docs
package email_message
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file email.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Core
open! Async
open! Import
include Email_message_kernel

let save ?temp_file ?perm ?fsync ?eol_except_raw_content t path =
  Writer.with_file_atomic ?temp_file ?perm ?fsync path ~f:(fun writer ->
    String_monoid.iter (to_string_monoid ?eol_except_raw_content t) ~f:(function
      | String_monoid.Underlying.Char c -> Writer.write_char writer c
      | String str -> Writer.write writer str
      | Bigstring bstr -> Writer.schedule_bigstring writer bstr);
    return ())
;;

module Content = Email_message_kernel.Content
module Raw_content = Email_message_kernel.Raw_content
module Simple = Email_simple