Skip to content

Commit

Permalink
Merge pull request #58 from beefy-raccoon/fix-sorting
Browse files Browse the repository at this point in the history 
Fix key sorting for sorted-maps
  • Loading branch information
@hlship
hlship committed Sep 20, 2018
2 parents db4e767 + 948299b commit 6ac7ed0
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions src/io/aviso/exception.clj
View file
Original file line number Diff line number Diff line change
Expand Up @@ -530,14 +530,16 @@
(str message-font message reset-font))
(when show-properties?
(let [properties (update-keys (:properties e) qualified-name)
prop-keys (keys properties)
prop-keys-sorted (cond-> (keys properties)
(not (sorted? (:properties e)))
(sort))
;; Allow for the width of the exception class name, and some extra
;; indentation.
property-formatter (c/format-columns " "
[:right (c/max-length prop-keys)]
[:right (c/max-length prop-keys-sorted)]
": "
:none)]
(doseq [k (sort prop-keys)]
(doseq [k prop-keys-sorted]
(property-formatter writer
(str property-font k reset-font)
(-> properties (get k) format-property-value)))))))
Expand Down

0 comments on commit 6ac7ed0

Please sign in to comment.