Add debugging output for when a clay ford build fails.

This commit is contained in:
Elliot Glaysher 2018-08-21 15:30:04 -07:00
parent 3c4e8d87b6
commit 86fa41cb54

View File

@ -501,6 +501,15 @@
|= row=build-result:ford
^- (unit [cage cage])
::
?: ?=([%error *] row)
~& [%clay-whole-build-failed message.row]
~
?: ?=([%success [%error *] *] row)
~& [%clay-first-failure message.head.row]
~
?: ?=([%success [%success *] [%error *]] row)
~& [%clay-second-failure message.tail.row]
~
?. ?=([%success [%success *] [%success *]] row)
~
`[(result-to-cage:ford head.row) (result-to-cage:ford tail.row)]