diff --git a/CHANGES.markdown b/CHANGES.markdown
--- a/CHANGES.markdown
+++ b/CHANGES.markdown
@@ -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)
 ---------------------
 
diff --git a/diagrams-builder.cabal b/diagrams-builder.cabal
--- a/diagrams-builder.cabal
+++ b/diagrams-builder.cabal
@@ -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
diff --git a/src/Diagrams/Builder.hs b/src/Diagrams/Builder.hs
--- a/src/Diagrams/Builder.hs
+++ b/src/Diagrams/Builder.hs
@@ -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)
diff --git a/src/tools/diagrams-builder-svg.hs b/src/tools/diagrams-builder-svg.hs
--- a/src/tools/diagrams-builder-svg.hs
+++ b/src/tools/diagrams-builder-svg.hs
@@ -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