service name

src/darkleaf/di/core.clj

@@ -568,13 +568,51 @@
 (defn- var->0-service [variable]
   variable)
 
+
+
+(comment
+
+  (let [f (with-meta
+            (fn
+              ([] 0)
+              ([a b c d] 4)
+              ([a b c d & _] :n))
+            {:foo :bar})]
+    [(f)
+     (f 1 2 3 4)
+     (f 1 2 3 4 5)])
+
+
+
+  ,,,)
+
+
 (defn- var->service [variable]
-  (let [deps (dependencies-fn variable)]
+  (let [deps (dependencies-fn variable)
+        name (str "#di/service[" variable "]")]
+    ;; => #di/service[#'darkleaf.di.service-name-test/service]
     (reify p/Factory
       (dependencies [_]
-         deps)
+        deps)
       (build [_ deps]
-         (partial variable deps))
+        (-> variable
+            (partial deps)
+
+            ;; with-meta медленнее partial, т.к. фактически делает (apply f args)
+            ;; https://github.com/clojure/clojure/blob/master/src/jvm/clojure/lang/AFunction.java#L31
+            ;; и все равно в сообщении об ошибке будет имя класса, а не print-method
+
+            ;; Можно сделать свой (deftype Service [variable deps] IFn ...)
+            ;; defrecord тут нельзя
+            ;; Так в ошибках будет
+            ;; class darkleaf.di.service.Service cannot be cast to class
+            ;; вместо
+            ;; partial:   class clojure.core$partial$fn__5908 cannot be cast to class
+            ;; with-meta: class clojure.lang.AFunction$1 cannot be cast to class
+
+            (with-meta
+              {:type ::service
+               :name name})))
       (demolish [_ _]))))
 
 (defn- var->factory-defn [variable]
@@ -635,6 +673,9 @@
   (binding [*out* w]
     (pr (-> o meta ::print))))
 
+(defmethod print-method ::service [o ^Writer w]
+  (.write w (-> o meta :name str)))
+
 (defn- try-namespace [x]
   (when (ident? x)
     (namespace x)))

test/darkleaf/di/service_name_test.clj

@@ -0,0 +1,23 @@
+(ns darkleaf.di.service-name-test
+  (:require
+   [clojure.test :as t]
+   [darkleaf.di.core :as di]))
+
+(defn service [arg])
+
+(t/deftest ok
+  (with-open [s (di/start `service)]
+    (conj @s 1))
+  ,,)
+
+;; It was:
+;; class clojure.core$partial$fn__5908 cannot be cast to class
+;; clojure.lang.IPersistentCollection (clojure.core$partial$fn__5908
+;; and clojure.lang.IPersistentCollection are in unnamed module of
+;; loader 'app'
+
+(t/deftest ok2
+  (with-open [s (di/start `service)]
+    @s)
+  ;; => #di/service[#'darkleaf.di.service-name-test/service]
+  ,,)