summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2011-09-14 21:39:18 +0200
committerPeter Bex <peter@more-magic.net>2011-09-14 21:39:18 +0200
commit087dc770145e517be9822103fa6691bc92c3e93f (patch)
tree4e2bf6a263844c7fd68161b4deb2e95376cf3986
parent5b8cbff7e9423ac75465d83a1625c6a03bf26a0b (diff)
downloadhenrietta-cache-087dc770145e517be9822103fa6691bc92c3e93f.tar.gz
Use move-file from setup-api instead of rename-file, since the latter just relinks the file which doesn't work across filesystems
-rw-r--r--henrietta-cache.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/henrietta-cache.scm b/henrietta-cache.scm
index d38021c..924b65a 100644
--- a/henrietta-cache.scm
+++ b/henrietta-cache.scm
@@ -1,4 +1,4 @@
-(use utils posix http-client matchable uri-common srfi-1)
+(use utils posix setup-api http-client matchable uri-common srfi-1)
(define (usage code)
(print #<#EOF
@@ -111,7 +111,7 @@ EOF
(contents-dir (if (= 1 (length contents))
(make-pathname tmpdir (car contents))
tmpdir)))
- (rename-file contents-dir cache-dir)
+ (move-file contents-dir cache-dir)
(system (sprintf "rm -rf ~A" (qs tmpdir))))))
((meta-file)
(condition-case