diff --git a/reanimate-svg.cabal b/reanimate-svg.cabal
--- a/reanimate-svg.cabal
+++ b/reanimate-svg.cabal
@@ -1,5 +1,5 @@
 name:                reanimate-svg
-version:             0.9.0.0
+version:             0.9.0.1
 synopsis:            SVG file loader and serializer
 description:
   reanimate-svg provides types representing a SVG document,
diff --git a/src/Graphics/SvgTree/Printer.hs b/src/Graphics/SvgTree/Printer.hs
--- a/src/Graphics/SvgTree/Printer.hs
+++ b/src/Graphics/SvgTree/Printer.hs
@@ -6,9 +6,11 @@
 import           Control.Lens
 import           Data.Char
 import           Data.List
-import           Graphics.SvgTree.Types     (DrawAttributes, Tree (..),
-                                             groupChildren,
-                                             preRendered, Document(..))
+import           Graphics.SvgTree.Types     (Document (..), DrawAttributes,
+                                             Tree (..), groupChildren,
+                                             patternElements, markerElements,
+                                             maskContent, clipPathContent,
+                                             preRendered)
 import           Graphics.SvgTree.XmlParser
 import           Text.XML.Light
 
@@ -32,6 +34,10 @@
 treeChildren (GroupTree g)      = g^.groupChildren
 treeChildren (SymbolTree g)     = g^.groupChildren
 treeChildren (DefinitionTree g) = g^.groupChildren
+treeChildren (ClipPathTree c)   = c^.clipPathContent
+treeChildren (PatternTree p)    = p^.patternElements
+treeChildren (MarkerTree m)     = m^.markerElements
+treeChildren (MaskTree m)       = m^.maskContent
 treeChildren _                  = []
 
 ppElementS_         :: [Tree] -> Element -> ShowS