mirror of
https://github.com/janet-lang/janet
synced 2024-11-24 17:27:18 +00:00
Fix jpm.
This commit is contained in:
parent
b72845609f
commit
bef51fe9ff
4
jpm
4
jpm
@ -658,8 +658,6 @@ int main(int argc, const char **argv) {
|
|||||||
(or (os/getenv "JANET_GIT") (pslurp "where git"))
|
(or (os/getenv "JANET_GIT") (pslurp "where git"))
|
||||||
(os/getenv "JANET_GIT" "git"))))
|
(os/getenv "JANET_GIT" "git"))))
|
||||||
|
|
||||||
(if is-win (pslurp "where git") "git"))
|
|
||||||
|
|
||||||
(defn uninstall
|
(defn uninstall
|
||||||
"Uninstall bundle named name"
|
"Uninstall bundle named name"
|
||||||
[name]
|
[name]
|
||||||
@ -969,7 +967,7 @@ int main(int argc, const char **argv) {
|
|||||||
(print "generating " manifest "...")
|
(print "generating " manifest "...")
|
||||||
(mkdir manifests)
|
(mkdir manifests)
|
||||||
(def sha (pslurp (string "\"" (git-path) "\" rev-parse HEAD")))
|
(def sha (pslurp (string "\"" (git-path) "\" rev-parse HEAD")))
|
||||||
(def url (pslurp (string "\"" (git-path) "\" remote get-url origin"))
|
(def url (pslurp (string "\"" (git-path) "\" remote get-url origin")))
|
||||||
(def man
|
(def man
|
||||||
{:sha (if-not (empty? sha) sha)
|
{:sha (if-not (empty? sha) sha)
|
||||||
:repo (if-not (empty? url) url)
|
:repo (if-not (empty? url) url)
|
||||||
|
Loading…
Reference in New Issue
Block a user