mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-04 18:36:12 +02:00
Code Issues Projects Releases Wiki Activity

Create root-dir when it does not exists, fix #35.

Browse Source
This commit is contained in:
Dimitri Fontaine 2014-08-29 23:19:01 +02:00
parent 7065d263f5
commit a41f8ea6d3
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/main.lisp
View File

@ -159,10 +159,8 @@
;; output its data logs and reject files
(let ((root-dir-truename (probe-file root-dir)))
(if root-dir-truename
(progn
(setf *root-dir* (fad:pathname-as-directory root-dir-truename))
(mkdir-or-die *root-dir* debug))
(format t "FATAL: can't find root-dir: ~s~%" root-dir)))
(setf *root-dir* (fad:pathname-as-directory root-dir-truename))
(mkdir-or-die *root-dir* debug)))
;; Set parameters that come from the environement
(init-params-from-environment)