swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

rm bos

Browse source
This commit is contained in:
swrup 2026-03-12 12:41:55 +01:00
parent a6d2b59da1
commit e849c418e9
3 changed files with 45 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/dune
View file

@ -16,7 +16,7 @@
;
; caqti
caqti-miou
caqti-miou.unix
caqti-mnet
caqti-driver-pgx
bin
mirage-crypto

6
src/secmod_rsa.ml
View file

@ -113,11 +113,9 @@ let delete_file fs fpath =
()
let get_key_dir_contents fs dir_fpath =
let* b = Bos.OS.Dir.create ~mode:0o700 dir_fpath |> unwrap_msg in
let* b = Fat.mkdir fs dir_fpath |> unwrap_msg in
if b then Log.info (fun m -> m "created directory `%a`" Fpath.pp dir_fpath);
let+ l =
Bos.OS.Dir.contents ~dotfiles:false ~rel:false dir_fpath |> unwrap_msg
in
let+ l = Fat.ls fs dir_fpath |> unwrap_msg in
List.map Fpath.normalize l
(* -- *)