Less digits in stats
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 27 Jun 2009 17:56:55 +0000 (19:56 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 27 Jun 2009 17:56:55 +0000 (19:56 +0200)
src/Lseed/Renderer/Cairo.hs

index 63c3b29..b39fe9c 100644 (file)
@@ -303,7 +303,7 @@ renderMessage angle h text = preserve $ do
 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" (take 20 n) s) $
+       let texts = map (\(n,s) -> printf "%s: %.1f" (take 20 n) s) $
                        reverse $
                        sortBy (comparing snd) $
                        (M.toList owernerscore)