convert data correctly

This commit is contained in:
Jay McCarthy 2014-10-08 11:15:26 -04:00
parent c51a87dc36
commit 336938d29f

View File

@ -203,7 +203,12 @@
(hash 'success-log (pbl 'success-log)
'failure-log (pbl 'failure-log)
'dep-failure-log (pbl 'dep-failure-log)
'conflicts-log (pbl 'conflicts-log)
'conflicts-log
(match (pbl 'conflicts-log)
[#f #f]
[(? path-string? f) f]
[(conflicts/indirect file)
(list "indirect" file)])
'docs
(for/list ([d (in-list (or (pbl 'docs) empty))])
(match d