include/parse_config.ml

@@ -16,7 +16,7 @@ type section = {
 }
 
 let fail_with msg =
-  Fmt.epr "Failed to parse configuration: %s.@." msg;
+  Fmt.epr "Configuration failure: %s.@." msg;
   exit 1
 
 let is_eol = function '\n' | '\r' -> true | _ -> false

src/config.ml

@@ -121,7 +121,11 @@ module Currency = struct
           (Fmt.str
              "section `[currency-%s]` not found, currency `%s` is not defined"
              Exchange.currency Exchange.currency)
-    | Some v -> v
+    | Some v -> (
+        match v.enabled = `YES with
+        | false ->
+            fail_with (Fmt.str "currency `%s` is not enabled" Exchange.currency)
+        | true -> v)
 end
 
 module Coin = struct