diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+## [v1.4.0.4](https://github.com/diagrams/diagrams-svg/tree/v1.4.0.4) (2016-08-22)
+
+- Require `optparse-applicative-0.13`, and fix compilation error
+
 ## [v1.4.0.3](https://github.com/diagrams/diagrams-svg/tree/v1.4.0.3) (2016-08-16)
 
 - Allow `optparse-applicative-0.13`
diff --git a/diagrams-svg.cabal b/diagrams-svg.cabal
--- a/diagrams-svg.cabal
+++ b/diagrams-svg.cabal
@@ -1,5 +1,5 @@
 Name:                diagrams-svg
-Version:             1.4.0.3
+Version:             1.4.0.4
 Synopsis:            SVG backend for diagrams drawing EDSL.
 Homepage:            http://projects.haskell.org/diagrams/
 License:             BSD3
@@ -60,7 +60,7 @@
                      , containers           >= 0.3   && < 0.6
                      , lens                 >= 4.0   && < 4.15
                      , hashable             >= 1.1   && < 1.3
-                     , optparse-applicative >= 0.10  && < 0.14
+                     , optparse-applicative >= 0.13  && < 0.14
                      , semigroups           >= 0.13  && < 0.19
   if impl(ghc < 7.6)
     build-depends:     ghc-prim
diff --git a/src/Diagrams/Backend/SVG/CmdLine.hs b/src/Diagrams/Backend/SVG/CmdLine.hs
--- a/src/Diagrams/Backend/SVG/CmdLine.hs
+++ b/src/Diagrams/Backend/SVG/CmdLine.hs
@@ -77,8 +77,7 @@
 import           Diagrams.Prelude         hiding (height, interval, output,
                                            width)
 
-import           Options.Applicative      hiding ((<>))
-import qualified Options.Applicative      as O ((<>))
+import           Options.Applicative
 
 import           Data.List.Split
 
@@ -151,8 +150,8 @@
 
 prettyOpt :: Parser PrettyOpt
 prettyOpt = PrettyOpt <$> switch (long "pretty"
-                     O.<> short 'p'
-                     O.<> help "Pretty print the SVG output")
+                     <> short 'p'
+                     <> help "Pretty print the SVG output")
 
 instance Parseable PrettyOpt where
   parser = prettyOpt