reanimate-svg 0.9.1.1 → 0.9.2.1

raw patch · 2 files changed

+5/−6 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• reanimate-svg.cabal +1/−1
• src/Graphics/SvgTree/PathParser.hs +4/−5

@@ -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,

@@ -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