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.10.0.0
+version:             0.10.1.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
@@ -1,16 +1,25 @@
+{-# LANGUAGE CPP #-}
 module Graphics.SvgTree.Misc
   ( ppD
   , ppF
   ) where
 
+#ifdef ASTERIUS
+import           Numeric
+#else
 import           Data.Double.Conversion.Text
 import qualified Data.Text                   as T
+#endif
 
 precision :: Int
 precision = 6
 
 ppD :: Double -> String
+#ifdef ASTERIUS
+ppD v = showFFloat (Just precision) v ""
+#else
 ppD = T.unpack . T.dropWhileEnd (== '.') . T.dropWhileEnd (== '0') . toFixed precision
+#endif
 
 ppF :: Float -> String
 ppF = ppD . realToFrac