blaze-shields 0.1.1.2 → 0.1.1.11
raw patch · 2 files changed
+7/−7 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Text.Blaze.Svg.Shields.Url: instance (GHC.Float.Floating b, GHC.Read.Read a, GHC.Read.Read b, GHC.Show.Show a, GHC.Show.Show b, Text.Blaze.ToMarkup a) => GHC.Read.Read (Text.Blaze.Svg.Shields.Url.SvgShields a b)
- Text.Blaze.Svg.Shields.Url: instance (GHC.Float.Floating b, GHC.Read.Read a, GHC.Read.Read b, GHC.Show.Show a, GHC.Show.Show b, Text.Blaze.ToMarkup a) => GHC.Show.Show (Text.Blaze.Svg.Shields.Url.SvgShields a b)
+ Text.Blaze.Svg.Shields.Url: instance (Floating b, Read a, Read b, Show a, Show b, ToMarkup a) => Read (SvgShields a b)
+ Text.Blaze.Svg.Shields.Url: instance (Floating b, Read a, Read b, Show a, Show b, ToMarkup a) => Show (SvgShields a b)
Files
- blaze-shields.cabal +1/−1
- lib/Text/Blaze/Svg/Shields.hs +6/−6
blaze-shields.cabal view
@@ -1,5 +1,5 @@ name: blaze-shields-version: 0.1.1.2+version: 0.1.1.11 synopsis: create svg by Haskell description: a Haskell version of shields ,which is on github. homepage: http://githubcom/Qinka/blaze-shields
lib/Text/Blaze/Svg/Shields.hs view
@@ -65,8 +65,8 @@ text_ ! x (show $ lp+rp/2+13) ! y "14" ! fill "#010101" ! fillOpacity "0.3" $ toHtml r text_ ! x (show $ lp+rp/2+13) ! y "13" $ toHtml r where- colorA = stringValue $ fromMaybe "#555" cA- colorB = stringValue $ fromMaybe "#4c1" cB+ colorA = stringValue $ ('#':) $ fromMaybe "555" cA+ colorB = stringValue $ ('#':) $ fromMaybe "#4c1" cB flatStyle ::(Show a,ToMarkup a,Show b,Floating b)=> (a,b) --left -> (a,b) --right@@ -89,8 +89,8 @@ text_ ! x (show $ lp +rp/2+13) ! y "14" ! fill "#010101" ! fillOpacity ".3" $ toHtml r text_ ! x (show $ lp +rp/2+13) ! y "14" $ toHtml r where- colorA = stringValue $ fromMaybe "#555" cA- colorB = stringValue $ fromMaybe "#4c1" cB+ colorA = stringValue $ ('#':) $ fromMaybe "555" cA+ colorB = stringValue $ ('#':) $ fromMaybe "#4c1" cB @@ -108,8 +108,8 @@ text_ ! x (show $ lp/2+7) !y "14" $ toHtml l text_ ! x (show $ lp+rp/2+13) !y "14" $ toHtml r where- colorA = stringValue $ fromMaybe "#555" cA- colorB = stringValue $ fromMaybe "#4c1" cB+ colorA = stringValue $ ('#':) $ fromMaybe "555" cA+ colorB = stringValue $ ('#':) $ fromMaybe "#4c1" cB socialStyle ::(Show a,ToMarkup a,Show b,Floating b)=> (a,b) --left -> (a,b) --right -> Maybe String --logo-url