yjsvg 0.1.6 → 0.1.7

raw patch · 2 files changed

+5/−2 lines, 2 files

Files

• src/Text/XML/YJSVG.hs +4/−1
• yjsvg.cabal +1/−1

@@ -14,7 +14,7 @@ import Data.Word(Word8)  yjsvgVersion :: (Int, String)-yjsvgVersion = (1, "0.1.6")+yjsvgVersion = (2, "0.1.7")  data SVG   = Line Double Double Double Double Color Double |              Polyline [ ( Double, Double ) ] Color Color Double |@@ -23,6 +23,7 @@              Text Double Double Double Color String | 	     Image Double Double Double Double FilePath | 	     Group [ Transform ] [ SVG ]+	deriving Show data Color 	= ColorName{ 		colorName :: String@@ -32,6 +33,7 @@ 		colorGreen ::  Word8, 		colorBlue ::  Word8 	 }+	deriving Show  mkColorStr :: Color -> String mkColorStr ColorName{colorName = n} = n@@ -44,6 +46,7 @@ 		 Rotate Double (Maybe (Double, Double)) | 		 SkewX Double | 		 SkewY Double+	deriving Show  showTrans :: Transform -> String showTrans (Translate tx ty) = "translate(" ++ show tx ++ "," ++ show ty ++ ")"

@@ -2,7 +2,7 @@ Cabal-Version:	>= 1.6  Name:		yjsvg-Version:	0.1.6+Version:	0.1.7 stability:	experimental author:		YoshikuniJujo <PAF01143@nifty.ne.jp> maintainer:	YoshikuniJujo <PAF01143@nifty.ne.jp>