package sihl-type

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

Source file storage_stored.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
type t =
  { file : Storage_file.t
  ; blob : string
  }
[@@deriving fields, yojson, show, eq, make]

let mime stored_file = Storage_file.mime stored_file.file
let filesize stored_file = Storage_file.filesize stored_file.file
let filename stored_file = Storage_file.filename stored_file.file

let set_mime mime stored_file =
  { stored_file with file = Storage_file.set_mime mime stored_file.file }
;;

let set_filesize size stored_file =
  { stored_file with file = Storage_file.set_filesize size stored_file.file }
;;

let set_filename name stored_file =
  { stored_file with file = Storage_file.set_filename name stored_file.file }
;;