Cut name after 20 chars
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 22:33:13 +0000 (00:33 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 26 Jun 2009 22:33:13 +0000 (00:33 +0200)
src/Lseed/Renderer/Cairo.hs

index b2bada5..f104a3d 100644 (file)
@@ -251,7 +251,7 @@ renderTimeInfo timeStr = 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" n s) $
+       let texts = map (\(n,s) -> printf "%s: %.4f" (take 20 n) s) $
                        reverse $
                        sortBy (comparing snd) $
                        (M.toList owernerscore)