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

84
dune-project
View file

@ -2,45 +2,45 @@
(name mte) (name mte)
(generate_opam_files true) ; (generate_opam_files true)
;
; (source ; ; (source
; (github username/reponame)) ; ; (github username/reponame))
;
(authors "Olivier Pierre <swrup@protonmail.com>") ; (authors "Olivier Pierre <swrup@protonmail.com>")
;
(maintainers "Olivier Pierre <swrup@protonmail.com>") ; (maintainers "Olivier Pierre <swrup@protonmail.com>")
;
(license AGPL-3.0-only) ; (license AGPL-3.0-only)
;
; (documentation https://url/to/documentation) ; ; (documentation https://url/to/documentation)
;
(package ; (package
(name mte) ; (name mte)
(synopsis "MTE - the MirageOS Taler Exchange") ; (synopsis "MTE - the MirageOS Taler Exchange")
(description "A GNU Taler exchange implementation with the unikernel framework MirageOS") ; (description "A GNU Taler exchange implementation with the unikernel framework MirageOS")
(tags ; (tags
("GNU Taler" MirageOS unikernel OCaml crypto)) ; ("GNU Taler" MirageOS unikernel OCaml crypto))
(depends ; (depends
(ocaml (>= 5.3)) ; (ocaml (>= 5.3))
base32 ; base32
caqti ; caqti
caqti-miou ; caqti-miou
caqti-driver-pgx ; caqti-driver-pgx
crunch ; crunch
vif ; vif
jsont ; jsont
cohttp ; cohttp
fmt ; fmt
bin ; bin
angstrom ; angstrom
mirage-crypto ; mirage-crypto
kdf ; kdf
digestif ; digestif
duration ; duration
jsont ; jsont
cohttp ; cohttp
ptime ; ptime
logs ; logs
(ocamlformat :with-dev-setup) ; (ocamlformat :with-dev-setup)
)) ; ))

2
src/dune
View file

@ -16,7 +16,7 @@
; ;
; caqti ; caqti
caqti-miou caqti-miou
caqti-miou.unix caqti-mnet
caqti-driver-pgx caqti-driver-pgx
bin bin
mirage-crypto 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 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); if b then Log.info (fun m -> m "created directory `%a`" Fpath.pp dir_fpath);
let+ l = let+ l = Fat.ls fs dir_fpath |> unwrap_msg in
Bos.OS.Dir.contents ~dotfiles:false ~rel:false dir_fpath |> unwrap_msg
in
List.map Fpath.normalize l List.map Fpath.normalize l
(* -- *) (* -- *)