diff --git a/lucid-svg.cabal b/lucid-svg.cabal
--- a/lucid-svg.cabal
+++ b/lucid-svg.cabal
@@ -1,5 +1,5 @@
 name:                lucid-svg
-version:             0.7.0.0
+version:             0.7.0.1
 synopsis:            DSL for SVG using lucid for HTML
 description:         Easy to write SVG in the syle of lucid.
 homepage:            http://github.com/jeffreyrosenbluth/lucid-svg.git
@@ -19,10 +19,10 @@
                        Lucid.Svg.Path,
                        Lucid.Svg.Elements,
                        Lucid.Svg.Attributes
-  build-depends:       base          >= 4.5   && < 4.10,
+  build-depends:       base          >= 4.5   && < 5,
                        blaze-builder >= 0.2   && < 0.5,
                        transformers  >= 0.2   && < 0.6,
-                       text          >= 0.11  && < 1.3,
+                       text          >= 0.11  && < 1.3 || >= 2 && < 2.1,
                        lucid         >= 2.9.2 && < 3.0
   hs-source-dirs:      src
   default-language:    Haskell2010
diff --git a/src/Lucid/Svg/Elements.hs b/src/Lucid/Svg/Elements.hs
--- a/src/Lucid/Svg/Elements.hs
+++ b/src/Lucid/Svg/Elements.hs
@@ -187,8 +187,8 @@
 feTurbulence_ = with $ makeXmlElementNoEnd "feTurbulence"
 
 -- | @filter_@ element
-filter_ :: Monad m => [Attribute] -> SvgT m ()
-filter_ = with $ makeXmlElementNoEnd "filter"
+filter_ :: Term arg result => arg -> result
+filter_ = term "filter"
 
 -- | @font@ element
 font_ :: Monad m => [Attribute] -> SvgT m ()
@@ -239,8 +239,8 @@
 image_ = with $ makeXmlElementNoEnd "image"
 
 -- | @line@ element
-line_ :: Monad m => [Attribute] -> SvgT m ()
-line_ = with $ makeXmlElementNoEnd "line"
+line_ :: Term arg result => arg -> result
+line_ = term "line"
 
 -- | @lineargradient@ element
 linearGradient_ :: Term arg result => arg -> result
@@ -303,8 +303,8 @@
 stop_ = with $ makeXmlElementNoEnd "stop"
 
 -- | @style@ element
-style_ :: Monad m => [Attribute] -> SvgT m ()
-style_ = with $ makeXmlElementNoEnd "style"
+style_ :: Term arg result => arg -> result
+style_ = term "style"
 
 -- | @svg@ element
 svg_ :: Term arg result => arg -> result
@@ -335,8 +335,8 @@
 tref_ = with $ makeXmlElementNoEnd "tref"
 
 -- | @tspan@ element
-tspan_ :: Monad m => [Attribute] -> SvgT m ()
-tspan_ = with $ makeXmlElementNoEnd "tspan"
+tspan_ :: Term arg result => arg -> result
+tspan_ = term "tspan"
 
 -- | @use@ element
 use_ :: Monad m => [Attribute] -> SvgT m ()