diff --git a/CHANGES.md b/CHANGES.md
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -1,3 +1,9 @@
+0.2.2.14 (2 April 2015)
+-----------------------
+
+ - allow `lens-4.9`
+ - allow `vector-space-0.10`
+
 0.2.2.13 (13 Jan 2015)
 ----------------------
 
diff --git a/diagrams-haddock.cabal b/diagrams-haddock.cabal
--- a/diagrams-haddock.cabal
+++ b/diagrams-haddock.cabal
@@ -1,5 +1,5 @@
 name:                diagrams-haddock
-version:             0.2.2.13
+version:             0.2.2.14
 synopsis:            Preprocessor for embedding diagrams in Haddock documentation
 description:         diagrams-haddock is a tool for compiling embedded inline
                      diagrams code in Haddock documentation, for an
@@ -47,8 +47,8 @@
                        diagrams-builder >= 0.5 && < 0.7,
                        diagrams-lib >= 0.6 && < 1.3,
                        diagrams-svg >= 0.8.0.1 && < 1.2,
-                       vector-space >= 0.8 && < 0.10,
-                       lens >= 3.8 && < 4.8,
+                       vector-space >= 0.8 && < 0.11,
+                       lens >= 3.8 && < 4.10,
                        cpphs >= 1.15,
                        cautious-file >= 1.0 && < 1.1,
                        uniplate >= 1.6 && < 1.7,
@@ -81,7 +81,7 @@
                        tasty-quickcheck >= 0.8 && < 0.9,
                        parsec >= 3,
                        haskell-src-exts >= 1.16 && < 1.17,
-                       lens >= 3.8 && < 4.8,
+                       lens >= 3.8 && < 4.10,
                        diagrams-haddock
   hs-source-dirs:      test
   default-language:    Haskell2010
diff --git a/src/Diagrams/Haddock.hs b/src/Diagrams/Haddock.hs
--- a/src/Diagrams/Haddock.hs
+++ b/src/Diagrams/Haddock.hs
@@ -73,9 +73,9 @@
 
 import           Control.Applicative             hiding (many, (<|>))
 import           Control.Arrow                   (first, (&&&), (***))
-import           Control.Lens                    ( (^.), (%~), (&), (.~), (%%~)
-                                                 , _2, orOf, traverse, view
-                                                 , _Right, makeLenses)
+import           Control.Lens                    (makeLenses, orOf, traverse,
+                                                  view, (%%~), (%~), (&), (.~),
+                                                  (^.), _2, _Right)
 import           Control.Monad.Writer
 import qualified Data.ByteString.Base64.Lazy     as BS64
 import qualified Data.ByteString.Lazy            as BS
@@ -321,7 +321,7 @@
 getBinding _                                  = Nothing
 
 getName :: Name l -> String
-getName (Ident _ s)  = s
+getName (HSE.Ident _ s)  = s
 getName (Symbol _ s) = s
 
 getQName :: QName l -> Maybe String