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.1.1
+version:             0.9.2.1
 synopsis:            SVG file loader and serializer
 description:
   reanimate-svg provides types representing a SVG document,
diff --git a/src/Graphics/SvgTree/PathParser.hs b/src/Graphics/SvgTree/PathParser.hs
--- a/src/Graphics/SvgTree/PathParser.hs
+++ b/src/Graphics/SvgTree/PathParser.hs
@@ -25,11 +25,10 @@
                                              string)
 import           Data.Scientific            (toRealFloat)
 
-import Numeric
-import Data.List
+import           Data.List
 import qualified Data.Text                  as T
-import           Graphics.SvgTree.Types
 import           Graphics.SvgTree.Misc
+import           Graphics.SvgTree.Types
 import           Linear                     hiding (angle, point)
 import           Text.Printf                (printf)
 
@@ -108,13 +107,13 @@
 unwordsS = foldr (.) id . intersperse (showChar ' ')
 
 serializePoint :: RPoint -> ShowS
-serializePoint (V2 x y) = showFFloat Nothing x . showChar ',' . showFFloat Nothing y
+serializePoint (V2 x y) = showString (ppD x) . showChar ',' . showString (ppD y)
 
 serializePoints :: [RPoint] -> ShowS
 serializePoints = unwordsS . map serializePoint
 
 serializeCoords :: [Coord] -> ShowS
-serializeCoords = unwordsS . fmap (showFFloat Nothing)
+serializeCoords = unwordsS . fmap (showString . ppD)
 
 serializePointPair :: (RPoint, RPoint) -> ShowS
 serializePointPair (a, b) = serializePoint a . showChar ' ' . serializePoint b