diff --git a/reanimate-svg.cabal b/reanimate-svg.cabal
--- a/reanimate-svg.cabal
+++ b/reanimate-svg.cabal
@@ -1,5 +1,5 @@
 name:                reanimate-svg
-version:             0.9.7.0
+version:             0.9.8.0
 synopsis:            SVG file loader and serializer
 description:
   reanimate-svg provides types representing a SVG document,
diff --git a/src/Graphics/SvgTree/Misc.hs b/src/Graphics/SvgTree/Misc.hs
--- a/src/Graphics/SvgTree/Misc.hs
+++ b/src/Graphics/SvgTree/Misc.hs
@@ -10,7 +10,7 @@
 precision = 6
 
 ppD :: Double -> String
-ppD = T.unpack . T.dropWhileEnd (\c -> c == '.' || c == '0') . toFixed precision
+ppD = T.unpack . T.dropWhileEnd (== '.') . T.dropWhileEnd (== '0') . toFixed precision
 
 ppF :: Float -> String
 ppF = ppD . realToFrac