diagrams-builder 0.7.0.3 → 0.7.0.4

raw patch · 4 files changed

+14/−10 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

CHANGES.markdown +6/−0
diagrams-builder.cabal +1/−1
src/Diagrams/Builder.hs +1/−1
src/tools/diagrams-builder-svg.hs +6/−8

CHANGES.markdown view

@@ -1,3 +1,9 @@+0.7.0.4 (1 June 2015)+---------------------++- `diagrams-builder-svg` now builds again (does not build in any other+  `0.7.0.x` releases)+ 0.7.0.3 (1 June 2015) ---------------------

diagrams-builder.cabal view

@@ -1,5 +1,5 @@ name:                diagrams-builder-version:             0.7.0.3+version:             0.7.0.4 synopsis:            hint-based build service for the diagrams graphics EDSL.  description:         @diagrams-builder@ provides backend-agnostic tools for

src/Diagrams/Builder.hs view

@@ -52,7 +52,7 @@ import           Data.List.Split                     (splitOn) import           Data.Maybe                          (catMaybes) -- for Typeable Any instance-import           Data.Orphans+import           Data.Orphans                        () import           System.Directory                    (doesFileExist,                                                       getTemporaryDirectory,                                                       removeFile)

src/tools/diagrams-builder-svg.hs view

@@ -1,19 +1,17 @@ {-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE RecordWildCards    #-} {-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}  module Main where  import           Diagrams.Backend.SVG import           Diagrams.Builder-import           Diagrams.Prelude             hiding (height, width)-import Lucid.Svg+import           Diagrams.Prelude       hiding (height, width)+import           Lucid.Svg -import qualified Data.ByteString.Lazy         as BS import           System.Console.CmdArgs-import           System.Directory             (copyFile,-                                               createDirectoryIfMissing)-import qualified System.FilePath              as FP+import           System.Directory       (copyFile, createDirectoryIfMissing)+import qualified System.FilePath        as FP  compileExample :: Build -> IO () compileExample (Build{..}) = do@@ -21,7 +19,7 @@    createDirectoryIfMissing True dir -  let bopts = mkBuildOpts SVG zero (SVGOptions (mkSizeSpec2D width height) [] "" )+  let bopts = mkBuildOpts SVG zero (SVGOptions (mkSizeSpec2D width height) Nothing "" )                 & snippets .~ [f]                 & imports  .~ [ "Diagrams.Backend.SVG" ]                 & diaExpr  .~ expr