diff --git a/lucid.cabal b/lucid.cabal
--- a/lucid.cabal
+++ b/lucid.cabal
@@ -1,5 +1,5 @@
 name:                lucid
-version:             2.6.0
+version:             2.6.1
 synopsis:            Clear to write, read and edit DSL for HTML
 description:         Clear to write, read and edit DSL for HTML. See the 'Lucid' module
                      for description and documentation.
diff --git a/src/Lucid/Base.hs b/src/Lucid/Base.hs
--- a/src/Lucid/Base.hs
+++ b/src/Lucid/Base.hs
@@ -23,6 +23,7 @@
   -- * Combinators
   ,makeElement
   ,makeElementNoEnd
+  ,makeXmlElementNoEnd
   ,makeAttribute
    -- * Types
   ,Html
@@ -365,6 +366,15 @@
 makeElementNoEnd name =
   HtmlT (return (\attr _ -> s "<" <> Blaze.fromText name
                             <> foldlMapWithKey buildAttr attr <> s ">",
+                 ()))
+
+-- | Make an XML builder for elements which have no ending tag.
+makeXmlElementNoEnd :: Monad m
+                    => Text       -- ^ Name.
+                    -> HtmlT m () -- ^ A parent element.
+makeXmlElementNoEnd name =
+  HtmlT (return (\attr _ -> s "<" <> Blaze.fromText name
+                            <> foldlMapWithKey buildAttr attr <> s "/>",
                  ()))
 
 -- | Build and encode an attribute.
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -7,6 +7,7 @@
 module Main where
 
 import Lucid
+import Lucid.Base
 import Lucid.Bootstrap
 
 import Example1
@@ -66,6 +67,9 @@
      it "no closing"
         (renderText (p_ (input_ [])) ==
          "<p><input></p>")
+     it "no closing"
+        (renderText (makeXmlElementNoEnd "p") ==
+         "<p/>")
 
 -- | Test that attribute assigning works properly.
 testAttributes :: Spec