cadence/breezewiki
2
4
Fork 4
Code Issues Pull requests 1 Releases Wiki Activity

Also use anytime-path in log.rkt

Browse source
This commit is contained in:
Cadence Ember 2023-03-09 00:04:07 +13:00
parent cf74ffb0e2
commit dfc9605cb6
Signed by: cadence
GPG key ID: BC1C2C61CF521B17
2 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/syntax.rkt
View file

@ -136,7 +136,10 @@
(error 'anytime-path "syntax source has no directory: ~v" stx)) (error 'anytime-path "syntax source has no directory: ~v" stx))
(datum->syntax (datum->syntax
stx stx
`(let* ([syntax-to-root (build-path (path-only ,source) ,to-root)] `(let* ([source ,source]
[dir-of-source (path-only source)]
[_ (unless (path? dir-of-source) (error 'anytime-path "syntax source has no directory: ~v" ,source))]
[syntax-to-root (build-path dir-of-source ,to-root)]
[root (if (directory-exists? syntax-to-root) [root (if (directory-exists? syntax-to-root)
;; running on the same filesystem it was compiled on, i.e. it's running the source code out of a directory, and the complication is the intermediate compilation ;; running on the same filesystem it was compiled on, i.e. it's running the source code out of a directory, and the complication is the intermediate compilation
syntax-to-root syntax-to-root

15
src/log.rkt
View file

@ -1,7 +1,7 @@
#lang typed/racket/base #lang typed/racket/base
(require racket/file (require racket/file
racket/path
racket/port racket/port
racket/runtime-path
racket/string racket/string
typed/srfi/19 typed/srfi/19
"config.rkt") "config.rkt")
@ -14,11 +14,20 @@
(define last-flush 0) (define last-flush 0)
(define flush-every-millis 60000) (define flush-every-millis 60000)
(define-runtime-path log-file "../storage/logs/access-0.log") ;; anytime-path macro expansion only works in an untyped submodule for reasons I cannot comprehend
(module define-log-dir racket/base
(require racket/path
"../lib/syntax.rkt")
(provide log-dir)
(define log-dir (anytime-path ".." "storage/logs")))
(require/typed (submod "." define-log-dir)
[log-dir Path])
(define log-file (build-path log-dir "access-0.log"))
(define log-port (define log-port
(if (config-true? 'access_log::enabled) (if (config-true? 'access_log::enabled)
(begin (begin
(make-directory* (simplify-path (build-path log-file 'up))) (make-directory* log-dir)
(open-output-file log-file #:exists 'append)) (open-output-file log-file #:exists 'append))
(open-output-nowhere))) (open-output-nowhere)))