Cut name after 20 chars
[L-seed.git] / 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)