split modules in library/executable

This commit is contained in:
swrup 2026-03-20 23:08:55 +01:00 committed by Swrup
parent 87f06339c8
commit 176c7cfa2b
4 changed files with 67 additions and 27 deletions

View file

@ -27,8 +27,12 @@ end
module Cfg = struct
include Config.Exchange_secmod_rsa
let key_dir = Config.spath "/RSA"
let sm_key = Config.spath "/SM_RSA"
let to_spath s =
let open Fat.Spath in
match of_string s with Error (`Msg e) -> Fmt.failwith "%s" e | Ok v -> v
let key_dir = to_spath "/RSA"
let sm_key = to_spath "/SM_RSA"
let coin_config_list = List.map Coin_config.of_coin Config.Coin.all_coins
let get_coin_config ~section_name =