Fs.Filetype t = fileval create : directory:Directory.t -> name:string -> tval dirname : t -> Directory.tval append : Directory.t -> t -> tval has_ext : string -> t -> boolval get_ext : t -> stringval of_string : string -> tval to_string : t -> stringval read : t -> (string, [> Or_error.msg ]) Or_error.result