reanimate-svg-0.10.2.0: src/Graphics/SvgTree/Misc.hs

{-# LANGUAGE CPP #-}
module Graphics.SvgTree.Misc
  ( ppD
  , ppF
  ) where

#if defined(ASTERIUS) || defined(ghcjs_HOST_OS)
import           Numeric
#else
import           Data.Double.Conversion.Text
import qualified Data.Text                   as T
#endif

precision :: Int
precision = 6

ppD :: Double -> String
#if defined(ASTERIUS) || defined(ghcjs_HOST_OS)
ppD v = showFFloat (Just precision) v ""
#else
ppD = T.unpack . T.dropWhileEnd (== '.') . T.dropWhileEnd (== '0') . toFixed precision
#endif

ppF :: Float -> String
ppF = ppD . realToFrac