fix hardcoded builddir

2024-02-22 10:51:43 -07:00
parent 50fac603b9
commit f691115868
2 changed files with 10 additions and 1 deletions
--- a/find-build.cl
+++ b/find-build.cl
@@ -0,0 +1,8 @@
+#!/usr/bin/env clisp
+
+(let* ((paths (directory "dist-newstyle/build/*/*/rlp-*/build/"))
+       (n (length paths)))
+  (cond ((< 1 n) (error ">1 build directories found. run `cabal clean`."))
+        ((< n 1) (error "no build directories found. this shouldn't happen lol"))
+        (t       (format t "~A" (car paths)))))
+