Reverse sort order
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 21:41:27 +0000 (23:41 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 21:41:27 +0000 (23:41 +0200)
src/Lseed/Renderer/Cairo.hs

index 2d20cbe..b2bada5 100644 (file)
@@ -252,6 +252,7 @@ renderStats h garden = do
        let owernerscore = foldr (\p -> M.insertWith (+) (plantOwnerName p) (plantLength (phenotype p))) M.empty garden
 
        let texts = map (\(n,s) -> printf "%s: %.4f" n s) $
+                       reverse $
                        sortBy (comparing snd) $
                        (M.toList owernerscore)
        preserve $ do