Permalink
Browse files

Add logging of pallet version

To ease identification of pallet versions in the log files,
add debug level logging of the pallet version on every lift and converge
  • Loading branch information...
hugoduncan committed Mar 14, 2011
1 parent a2aaf17 commit 001bd0bd40b9f15902fbd8a0a1014c6f069f9e06
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/pallet/core.clj
View
@@ -603,6 +603,7 @@ script that is run with root privileges immediatly after first boot."
(defn lift*
[request]
+ (logging/debug (format "pallet version: %s" (version)))
(logging/trace (format "lift* phases %s" (vec (:phase-list request))))
(let [node-set (:node-set request)
all-node-set (:all-node-set request)
@@ -625,6 +626,7 @@ script that is run with root privileges immediatly after first boot."
also executed, but not applied, for any other nodes in all-node-set"
[request]
{:pre [(map? (:node-map request))]}
+ (logging/debug (format "pallet version: %s" (version)))
(logging/trace
(format "converge* %s %s" (:node-map request) (:phase-list request)))
(logging/info "retrieving nodes")

0 comments on commit 001bd0b

Please sign in to comment.