svg-tree 0.3 → 0.3.1
raw patch · 3 files changed
+11/−8 lines, 3 filesdep ~lens
Dependency ranges changed: lens
Files
- changelog +3/−0
- src/Graphics/Svg/PathParser.hs +5/−5
- svg-tree.cabal +3/−3
changelog view
@@ -1,5 +1,8 @@ -*-change-log-*- +v0.3.1 May 2015+ * Fix: Bumping lens dependency and removing upper bound.+ v0.3 April 2015 * Breaking change: Switching all the numeric types associated to geometry to Double precision (thx to Kasbah)
src/Graphics/Svg/PathParser.hs view
@@ -78,8 +78,8 @@ <|> (SmoothQuadraticBezierCurveTo OriginRelative <$ string "t" <*> pointList) <|> (EllipticalArc OriginAbsolute <$ string "A" <*> manyComma ellipticalArgs) <|> (EllipticalArc OriginRelative <$ string "a" <*> manyComma ellipticalArgs)- <|> (EndPath <$ string "Z")- <|> (EndPath <$ string "z")+ <|> (EndPath <$ string "Z" <* commaWsp)+ <|> (EndPath <$ string "z" <* commaWsp) where pointList = point `sepBy1` commaWsp pointPair = (,) <$> point <* commaWsp <*> point pointPairList = pointPair `sepBy1` commaWsp@@ -93,8 +93,8 @@ ellipticalArgs = (,,,,,) <$> numComma <*> numComma <*> numComma- <*> (fmap (==0) numComma)- <*> (fmap (==0) numComma)+ <*> (fmap (/= 0) numComma)+ <*> (fmap (/= 0) numComma) <*> point serializePoint :: RPoint -> String@@ -147,7 +147,7 @@ EndPath -> "Z" where serializeArg (a, b, c, d, e, V2 x y) =- printf "%g %g %g %g %g %g,%g" a b c (fromEnum d) (fromEnum e) x y+ printf "%g %g %g %d %d %g,%g" a b c (fromEnum d) (fromEnum e) x y serializeArgs = unwords . fmap serializeArg
svg-tree.cabal view
@@ -1,5 +1,5 @@ name: svg-tree-version: 0.3+version: 0.3.1 synopsis: SVG file loader and serializer description: svg-tree provides types representing a SVG document,@@ -29,7 +29,7 @@ Source-Repository this Type: git Location: git://github.com/Twinside/svg-tree.git- Tag: v0.3+ Tag: v0.3.1 library hs-source-dirs: src@@ -58,5 +58,5 @@ , text >= 1.2 , transformers >= 0.3 && < 0.5 , mtl >= 2.1 && < 2.3- , lens >= 4.6 && < 4.10+ , lens >= 4.6 && < 5