Moving database from home to cwd

svn: r15096
This commit is contained in:
Jay McCarthy 2009-06-05 17:55:07 +00:00
parent 10dc764398
commit e8866b4020
5 changed files with 5 additions and 5 deletions

View File

@ -918,7 +918,7 @@ First, change @scheme[start] to call @scheme[initialize-blog!] with a path in ou
(define (start request) (define (start request)
(render-blog-page (render-blog-page
(initialize-blog! (initialize-blog!
(build-path (find-system-path 'home-dir) (build-path (current-directory)
"the-blog-data.db")) "the-blog-data.db"))
request)) request))
] ]

View File

@ -8,7 +8,7 @@
(define (start request) (define (start request)
(render-blog-page (render-blog-page
(initialize-blog! (initialize-blog!
(build-path (find-system-path 'home-dir) (build-path (current-directory)
"the-blog-data.sqlite")) "the-blog-data.sqlite"))
request)) request))

View File

@ -8,7 +8,7 @@
(define (start request) (define (start request)
(render-blog-page (render-blog-page
(initialize-blog! (initialize-blog!
(build-path (find-system-path 'home-dir) (build-path (current-directory)
"the-blog-data.sqlite")) "the-blog-data.sqlite"))
request)) request))

View File

@ -8,7 +8,7 @@
(define (start request) (define (start request)
(render-blog-page (render-blog-page
(initialize-blog! (initialize-blog!
(build-path (find-system-path 'home-dir) (build-path (current-directory)
"the-blog-data.db")) "the-blog-data.db"))
request)) request))

View File

@ -8,7 +8,7 @@
(define (start request) (define (start request)
(render-blog-page (render-blog-page
(initialize-blog! (initialize-blog!
(build-path (find-system-path 'home-dir) (build-path (current-directory)
"the-blog-data.db")) "the-blog-data.db"))
request)) request))