voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

suckless, html5 tags

This commit is contained in:
voidlizard 2025-02-02 21:08:10 +03:00
parent 83db37ce96
commit 04b291157f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
View File

@ -3,6 +3,7 @@
{-# Language PatternSynonyms #-} {-# Language PatternSynonyms #-}
{-# Language ViewPatterns #-} {-# Language ViewPatterns #-}
{-# Language RecordWildCards #-} {-# Language RecordWildCards #-}
{-# Language MultiWayIf #-}
module Data.Config.Suckless.Script.Internal module Data.Config.Suckless.Script.Internal
( module Data.Config.Suckless.Script.Internal ( module Data.Config.Suckless.Script.Internal
, module Export , module Export
@ -1671,7 +1672,8 @@ internalEntries = do
TextLike s -> s TextLike s -> s
_ -> mempty _ -> 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) pure $ mkStr (show wtf)