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.1.0
+version:             0.10.2.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
@@ -4,7 +4,7 @@
   , ppF
   ) where
 
-#ifdef ASTERIUS
+#if defined(ASTERIUS) || defined(ghcjs_HOST_OS)
 import           Numeric
 #else
 import           Data.Double.Conversion.Text
@@ -15,7 +15,7 @@
 precision = 6
 
 ppD :: Double -> String
-#ifdef ASTERIUS
+#if defined(ASTERIUS) || defined(ghcjs_HOST_OS)
 ppD v = showFFloat (Just precision) v ""
 #else
 ppD = T.unpack . T.dropWhileEnd (== '.') . T.dropWhileEnd (== '0') . toFixed precision