SPAN - refactor mirror dir

2012-01-19 00:44:07 +09:00
parent 38133a2915
commit a0e14c95cc
1 changed files with 1 additions and 1 deletions
@@ -361,7 +361,7 @@ Enter 'h' for help.")
                       (lambda (answer)
                         (set! SPAN-mirror-url answer)
                         (run (touch (string-append SPAN-dir "/mirror")))
-                         (let ((out (open-output-file (string-append SPAN-build-and-cache-dir "/mirror"))))
+                         (let ((out (open-output-file (string-append SPAN-dir "/mirror"))))
                           (write answer out))
                         #f)) answer)