9 lines
329 B
Common Lisp
Executable File
9 lines
329 B
Common Lisp
Executable File
#!/usr/bin/env sbcl --script
|
|
|
|
(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)))))
|
|
|