Changeset 18361 in project for release/4/spiffy/trunk/spiffy.scm


Ignore:
Timestamp:
06/06/10 15:07:22 (11 years ago)
Author:
sjamaan
Message:

Fix #266

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/spiffy/trunk/spiffy.scm

    r18092 r18361  
    332332;; would be seen as the file component in the path and get replaced.
    333333(define (redirect-directory-root path)
    334   (let ((new-path (uri-path (uri-reference (string-append path "/")))))
     334  (let ((new-path (cons '/ (string-split (string-append path "/") "/" #t))))
    335335   (with-headers `((location ,(update-uri (server-root-uri)
    336336                                          path: new-path)))
Note: See TracChangeset for help on using the changeset viewer.