···

       
0
       
 
       

     

       
0
       
 
       

     

       
1
       
 
       
type file = { content : string; size : int64 }

     

       
2
       
 
       
type dir = (string, file) Hashtbl.t

     

       
3
       
 
       
type entry = { name : string; file : file }

     

···

       
1
       
+
       
(* TODO: put the real implementation here -- for now it's just an in-memory database *)

     

       
2
       
+
       


     

       
3
       
 
       
type file = { content : string; size : int64 }

     

       
4
       
 
       
type dir = (string, file) Hashtbl.t

     

       
5
       
 
       
type entry = { name : string; file : file }