     ([logger component level message]
      (clojure.tools.logging/log (component-name component) level nil message))))
 
-(extend-type DummyLogger
-  ILogger
-  (-log [& _]))
+

    throwable and a message."))

(defrecord CTLLogger [config])
(defrecord DummyLogger [config])

(defn make-ctl-logger
  "Creates a logger which logs via clojure.tools.logging."
  []
  (map->CTLLogger {}))

(defn make-dummy-logger
  "Creates a dummy logger which discards all input."
  []
  (map->DummyLogger {}))

(defn wrap-logging
  ([system logger]

;;; Extend Logger 

(defn ^:private component-name [c]
  (some-> c class .getSimpleName))

(extend-type CTLLogger
  ILogger
