Changeset 20818 in project


Ignore:
Timestamp:
10/12/10 21:08:09 (8 years ago)
Author:
sjamaan
Message:

qwiki: Clean up post-commit-hook a little and express the assumption we're making

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki-post-commit-hook.scm

    r20817 r20818  
    7575       (for-each
    7676        (lambda (path/changed-path-pair)
    77           (let ((path (car path/changed-path-pair)))
    78             (if (file-exists? (make-pathname (qwiki-source-path) path))
    79                 (unless (symbolic-link? (make-pathname (qwiki-source-path) path))
     77          (let ((path (car path/changed-path-pair))
     78                (source-path (make-pathname (qwiki-source-path) path)))
     79            (if (file-exists? source-path)
     80                (unless (symbolic-link? source-path)
     81                  ;; Assume the VCS backend won't hand us paths with non-leaf
     82                  ;; symlink components!
    8083                  (qwiki-update-file! (string-split path "/")))
    8184                (qwiki-delete-file! (string-split path "/")))))
Note: See TracChangeset for help on using the changeset viewer.