|
|
@@ -28,8 +28,8 @@
|
|
|
|
|
|
(defsetting *git-repos-root* "/tmp/ledger-repos/")
|
|
|
(defun git-get-chat-location (chat-id remote)
|
|
|
- (merge-pathnames (format nil "~A-~A" chat-id (token-hmac remote))
|
|
|
- *git-repos-root*))
|
|
|
+ (namestring (merge-pathnames (format nil "~A-~A" chat-id (token-hmac remote))
|
|
|
+ *git-repos-root*)))
|
|
|
|
|
|
(defun git-read-latest-file (repo path)
|
|
|
(bt:with-recursive-lock-held ((git-get-repo-lock repo))
|
|
|
@@ -58,7 +58,7 @@
|
|
|
:if-exists :supersede
|
|
|
:if-does-not-exist :create)
|
|
|
(format s "~A~A" current text)))
|
|
|
- (legit:add repo repo-path)
|
|
|
+ (legit:add repo (namestring repo-path))
|
|
|
(legit:commit repo message)
|
|
|
(handler-case
|
|
|
(progn
|
