From d69143a4be9c79dec92984b844ce9213c79e69ab Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Mon, 25 Mar 2024 23:05:10 +0200 Subject: Add asserts for nonempty dir paths to make filesystem ops safer --- main.scm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'main.scm') diff --git a/main.scm b/main.scm index 4b594c4..6a94ee3 100644 --- a/main.scm +++ b/main.scm @@ -39,6 +39,10 @@ (define template-path (or (get-environment-variable "PANDOC_TEMPLATE") "template.html")) +(assert (> (string-length src-dir) 0)) +(assert (> (string-length out-dir) 0)) +(assert (> (string-length template-path) 0)) + (define (process-path path) (match path [(? is-md?) (process-md path)] -- cgit v1.3