packages feed

yjsvg 0.1.7 → 0.1.8

raw patch · 2 files changed

+7/−4 lines, 2 files

Files

src/Text/XML/YJSVG.hs view
@@ -14,13 +14,15 @@ import Data.Word(Word8)  yjsvgVersion :: (Int, String)-yjsvgVersion = (2, "0.1.7")+yjsvgVersion = (3, "0.1.8") +type Font = String+ data SVG   = Line Double Double Double Double Color Double |              Polyline [ ( Double, Double ) ] Color Color Double |              Rect Double Double Double Double Double Color Color | 	     Circle Double Double Double Color |-             Text Double Double Double Color String |+             Text Double Double Double Color Font String | 	     Image Double Double Double Double FilePath | 	     Group [ Transform ] [ SVG ] 	deriving Show@@ -94,10 +96,11 @@  , ( N "stroke", AttValue [ Left $ mkColorStr cs ] )  ] [] -svgToElem (Text x y s c t)+svgToElem (Text x y s c f t)   = Elem (N "text") [    ( N "x", AttValue [ Left $ show x ] )  , ( N "y", AttValue [ Left $ show y ] )+ , ( N "font-family", AttValue [ Left f ] )  , ( N "font-size", AttValue [ Left $ show s ] )  , ( N "fill", AttValue [ Left $ mkColorStr c ] )  ] [ CString False t () ]
yjsvg.cabal view
@@ -2,7 +2,7 @@ Cabal-Version:	>= 1.6  Name:		yjsvg-Version:	0.1.7+Version:	0.1.8 stability:	experimental author:		YoshikuniJujo <PAF01143@nifty.ne.jp> maintainer:	YoshikuniJujo <PAF01143@nifty.ne.jp>