Commit ff97b3c8 authored by dave griffiths's avatar dave griffiths

some trace messages

parent 97a3674c
......@@ -61,12 +61,12 @@
(define (merge-n-bump current-version db table entity-type unique-id dirty version data)
(let ((entity-id (entity-id-from-unique db table unique-id)))
;;(msg "merge start:" (get-entity-version db table entity-id))
(msg "merge start:" (get-entity-version db table entity-id))
(let ((r (sync-update db table entity-type unique-id dirty version data)))
;;(msg "merge post:" (get-entity-version db table entity-id))
(msg "merge post:" (get-entity-version db table entity-id))
;; must be one newer than highest in the system
(update-entity-version db table entity-id (+ current-version 1))
;;(msg "merge over:" (get-entity-version db table entity-id))
(msg "merge over:" (get-entity-version db table entity-id))
r)))
(define (check-for-sync db table entity-type unique-id dirty version data)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment