mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-20 15:44:49 +00:00
Code Issues 1 Releases Wiki Activity

Merge pull request #402 from andrewchambers/linelockfiles

Browse Source 
Format lock files for nicer diffs.
This commit is contained in:
Calvin Rose 2020-05-18 18:45:25 -04:00 committed by GitHub
commit 17cb0c1aee
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
jpm
View File

@ -758,8 +758,15 @@ int main(int argc, const char **argv) {
(unless made-progress
(error (string/format "could not resolve package order for: %j"
(filter (complement resolved) (map |($ :repo) packages))))))
# Write to file
(with [f (file/open filename :w)] (with-dyns [:out f] (printf "%j" ordered-packages))))
# Write to file, manual format for better diffs.
(with [f (file/open filename :w)]
(with-dyns [:out f]
(prin "@[")
(eachk i ordered-packages
(unless (zero? i)
(prin "\n "))
(prinf "%j" (ordered-packages i)))
(print "]"))))
(defn- load-lockfile
[&opt filename]