Add output to stdout as well.
This commit is contained in:
parent
899f654b89
commit
a2c7095711
2 changed files with 6 additions and 4 deletions
|
@ -486,7 +486,7 @@ util-dir.import.scm: $(UTIL-DIR-SOURCES)
|
|||
|
||||
DOKUWIKI-SOURCES=dokuwiki.scm racket-kwargs.import.scm \
|
||||
configuration.import.scm util-parser.import.scm \
|
||||
util-csv.import.scm logging.import.scm
|
||||
util-csv.import.scm logging.import.scm util-stdout.import.scm
|
||||
|
||||
dokuwiki.o: dokuwiki.import.scm
|
||||
dokuwiki.import.scm: $(DOKUWIKI-SOURCES)
|
||||
|
|
|
@ -40,7 +40,8 @@
|
|||
configuration
|
||||
util-parser
|
||||
util-csv
|
||||
logging)
|
||||
logging
|
||||
util-stdout)
|
||||
|
||||
;; Special CSV-like parser
|
||||
(define auth-line-parser
|
||||
|
@ -74,6 +75,7 @@
|
|||
exn
|
||||
(let ()
|
||||
(log-warning "DokuWiki: cannot open ~A" fname)
|
||||
(stdout-print "DokuWiki: cannot open ~A" fname)
|
||||
'())
|
||||
(with-input-from-file fname
|
||||
parse-dokuwiki-users-auth)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue