Skip to content
Browse files

sort display by rating

  • Loading branch information...
1 parent 69dfdb6 commit 2774f28eb3eb81a52c70e60abdf5855587c7ce99 @jwaldmann committed Jan 26, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Bank.hs
View
2 src/Bank.hs
@@ -71,6 +71,6 @@ $(makeAcidic ''Bank [ 'updates, 'snapshot ])
pretty (Bank b) = text "statistics:" <+> vcat
( map ( text . show )
- $ sortBy ( comparing ( points . snd ) )
+ $ sortBy ( comparing ( negate . rating . snd ) )
$ M.toList b
)

0 comments on commit 2774f28

Please sign in to comment.
Something went wrong with that request. Please try again.