From 04b291157fc61a53f8e21f556a328cd940c68581 Mon Sep 17 00:00:00 2001
From: voidlizard <dzuikov@gmail.com>
Date: Sun, 2 Feb 2025 21:08:10 +0300
Subject: [PATCH] suckless, html5 tags

---
 .../suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
index 3a4f000f..471dce9a 100644
--- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
+++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
@@ -3,6 +3,7 @@
 {-# Language PatternSynonyms #-}
 {-# Language ViewPatterns #-}
 {-# Language RecordWildCards #-}
+{-# Language MultiWayIf #-}
 module Data.Config.Suckless.Script.Internal
   ( module Data.Config.Suckless.Script.Internal
   , module Export
@@ -1671,7 +1672,8 @@ internalEntries = do
                        TextLike s -> s
                        _          -> mempty
 
-          let wtf = angles (pretty tag <> pretty attrs) <> pretty body <> angles ( "/" <> pretty tag )
+          let closing = if null content then mempty else angles ( "/" <> pretty tag )
+          let wtf = angles (pretty tag <> pretty attrs) <> pretty body <> closing
 
           pure $ mkStr (show wtf)