diff --git a/haphviz.cabal b/haphviz.cabal
--- a/haphviz.cabal
+++ b/haphviz.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                haphviz
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            Graphviz code generation with Haskell
 description:         Graphviz code generation with Haskell
 author:              Tom Sydney Kerckhove
diff --git a/src/Text/Dot/Gen.hs b/src/Text/Dot/Gen.hs
--- a/src/Text/Dot/Gen.hs
+++ b/src/Text/Dot/Gen.hs
@@ -15,6 +15,7 @@
 
 import           Text.Dot.Types.Internal
 
+import           Control.Monad           (void)
 import           Data.Monoid             (Monoid (..), (<>))
 
 import           Data.Text               (Text)
@@ -185,6 +186,10 @@
 -- | Cluster
 cluster :: Text -> DotGen () -> DotGen GraphName
 cluster name = subgraph $ "cluster_" <> name
+
+-- | Cluster, discarding the graph name
+cluster_ :: Text -> DotGen () -> DotGen ()
+cluster_ name subgraph = void $ cluster name subgraph
 
 -- * Miscelaneous
 -- ** Rankdir