Chart-diagrams 1.9.1 → 1.9.2

raw patch · 2 files changed

+17/−6 lines, 2 filesdep ~SVGFontsdep ~lensnew-uploaderPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: SVGFonts, lens

API changes (from Hackage documentation)

Files

• Chart-diagrams.cabal +3/−3
• Graphics/Rendering/Chart/Backend/Diagrams.hs +14/−3

@@ -1,5 +1,5 @@ Name: Chart-diagrams-Version: 1.9.1+Version: 1.9.2 License: BSD3 License-file: LICENSE Copyright: Jan Bracker, 2006-2014@@ -32,13 +32,13 @@                , diagrams-lib >= 1.2 && < 1.5                , diagrams-svg >= 1.4 && < 1.5                , diagrams-postscript >= 0.7 && < 1.5-               , SVGFonts >= 1.4 && < 1.7+               , SVGFonts >= 1.4 && < 1.8                , colour >= 2.2.1 && < 2.4                , blaze-markup >= 0.7 && < 0.9                , svg-builder >= 0.1 && < 0.2                , bytestring >= 0.9 && < 1.0                , operational >= 0.2.2 && < 0.3-               , containers >= 0.4 && < 0.6+               , containers >= 0.4 && < 0.7                , data-default-class < 0.2                , lens >= 3.9 && < 4.18                , Chart >= 1.9 && < 1.10

@@ -2,6 +2,7 @@ {-# LANGUAGE GADTs #-} {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE ScopedTypeVariables #-}+{-# LANGUAGE CPP #-}  -- | The backend to render charts with the diagrams library. module Graphics.Rendering.Chart.Backend.Diagrams@@ -80,6 +81,8 @@  import Paths_Chart_diagrams ( getDataFileName ) +import System.IO.Unsafe (unsafePerformIO)+ -- ----------------------------------------------------------------------- -- General purpose file output function -- -----------------------------------------------------------------------@@ -568,11 +571,19 @@       , F.textHeight = scaledH -- _font_size fs       } +{-# DEPRECATED fontFromName "This function will be removed in the next release" #-}++#if MIN_VERSION_SVGFonts(1,7,0)+getPreparedFont  = unsafePerformIO+#else+getPreparedFont = id+#endif+ fontFromName :: (Read n, RealFloat n) => String -> F.PreparedFont n fontFromName name = case name of-  "serif" -> F.lin-  "monospace" -> F.bit-  _ -> F.lin+  "serif" -> getPreparedFont F.lin+  "monospace" -> getPreparedFont F.bit+  _ -> getPreparedFont F.lin  -- | Convert line caps. convertLineCap :: LineCap -> D.LineCap