package sihl-type

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

Source file storage_file.ml

1
2
3
4
5
6
7
8
9
10
11
type t =
  { id : string
  ; filename : string
  ; filesize : int
  ; mime : string
  }
[@@deriving fields, yojson, show, eq, make]

let set_mime mime file = { file with mime }
let set_filesize filesize file = { file with filesize }
let set_filename filename file = { file with filename }