Pr review

hephaistox · Jan 13, 2024 · 3b62fd3 · 3b62fd3
1 parent 01612a0
commit 3b62fd3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 6 deletions.
diff --git a/src/cljc/automaton_core/configuration.cljc b/src/cljc/automaton_core/configuration.cljc
@@ -21,7 +21,7 @@
 (defn start-conf
   []
   (try (println "Starting configuration component")
-       (let [conf (core-conf-files/->SimpleConf)
+       (let [conf (core-conf-files/->FilesConf)
              env-conf (core-conf-env/->EnvConf)]
          (println "Configuration component is started")
          [conf env-conf])
@@ -39,9 +39,7 @@
   ([key-path default-value]
    (let [value (or (core-conf-prot/read-conf-param (first @conf-state) key-path)
                    (core-conf-prot/read-conf-param (second @conf-state) key-path))]
-     (when (nil? value)
-       (println "Value for " key-path " is not set, use default value")
-       default-value)))
+     (when (nil? value) (println "Value for " key-path " is not set, use default value") default-value)))
   ([key-path] (read-param key-path nil)))
 
 
diff --git a/src/cljc/automaton_core/configuration/files.cljc b/src/cljc/automaton_core/configuration/files.cljc
@@ -54,8 +54,7 @@
 
 (def ^{:doc "A map of configuration variables."} conf (memoize read-config))
 
-
-(defrecord SimpleConf []
+(defrecord FilesConf []
   core-conf-prot/Conf
     (read-conf-param [_this key-path] (get-in (conf) key-path))
     (config [_this] (conf)))