From 60d69a99a9a5b52d53e180adb7fa572623846f54 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 3 Mar 2022 22:14:03 -0500
Subject: [PATCH] fixup

---
 src/Tiny_httpd_dir.mli | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/Tiny_httpd_dir.mli b/src/Tiny_httpd_dir.mli
index 0361a2bd..16c1491a 100644
--- a/src/Tiny_httpd_dir.mli
+++ b/src/Tiny_httpd_dir.mli
@@ -140,9 +140,12 @@ module Embedded_fs : sig
   type t
   (** The pseudo-filesystem *)
 
-  val create : unit -> t
+  val create : ?mtime:float -> unit -> t
 
-  val add_file : t -> path:string -> string -> unit
+  val add_file : ?mtime:float -> t -> path:string -> string -> unit
+  (** Add file to the virtual file system.
+      @raise Invalid_argument if the path contains '..' or if it tries to
+      make a directory out of an existing path that is a file. *)
 
   val to_vfs : t -> (module VFS)
 end