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

Browse source
This commit is contained in:
swrup 2025-10-13 00:29:33 +02:00
parent be2e590e93
commit 43ee7b4de7
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/config.ml
View file

@ -1,7 +1,10 @@
(* https://docs.taler.net/manpages/taler-exchange.conf.5.html#exchange-options *) (* https://docs.taler.net/manpages/taler-exchange.conf.5.html#exchange-options *)
(* TODO (* TODO
- generate `config.ml` from config file (virtual module)? - generate `config.ml` from config file (virtual module)?
- parse config file format
- no relative path *) - no relative path *)
(* TODO default config: use relevant duration, all set to 1 year for now *)
let default_lang = "en" let default_lang = "en"
let default_encoding : [< `Identity | `DEFLATE | `Gzip ] = `Identity let default_encoding : [< `Identity | `DEFLATE | `Gzip ] = `Identity
@ -37,8 +40,7 @@ let currency_round_unit = { currency= `Eur; value= 0; fraction= 1 }
let value_to_string v = let value_to_string v =
Fmt.str "%s:%d.%d" (currency_to_string v.currency) v.value v.fraction Fmt.str "%s:%d.%d" (currency_to_string v.currency) v.value v.fraction
(* todo: use relevant duration, all set to 1 year for now *) (* https://docs.taler.net/manpages/taler-exchange.conf.5.html#exchange-coin-options *)
module Coin = struct module Coin = struct
(* How much is the coin worth, the format is CURRENCY:VALUE.FRACTION. For (* How much is the coin worth, the format is CURRENCY:VALUE.FRACTION. For
example, a 10 cent piece is “EUR:0.10”. *) example, a 10 cent piece is “EUR:0.10”. *)