feat: easily separate renderables by blank lines

1 files changed, 4 insertions, 14 deletions

diff --git a/app/Issue/Render.hs b/app/Issue/Render.hs
index 39249ae..c8a913b 100644
--- a/app/Issue/Render.hs
+++ b/app/Issue/Render.hs
@@ -18,25 +18,15 @@ import Data.Time.Clock (UTCTime (utctDay))
 import Git (Author (..), Commit (..))
 import Issue (Issue (..))
 import Issue.Provenance (Provenance (..))
-import Render ((<<<))
+import Render ((<<<), (===))
 import Render qualified as P
 
--- TODO Easily separate renderables by newlines
---
--- For convenience, the (<<<) combinator adds spaces between renderable entities, **if** those renderables are non-empty.
---
--- We should similarly allow for a combinator that similarly adds empty lines between renderable entities.
---
--- @topic rendering
 instance P.Render (P.Detailed Issue) where
   render (P.Detailed issue) =
     IssueTitle issue
-      <<< P.hardline @P.AnsiStyle
-      <<< IssueDescription issue
-      <<< P.hardline @P.AnsiStyle
-      <<< IssueTags issue
-      <<< P.hardline @P.AnsiStyle
-      <<< IssueComments issue
+      === IssueDescription issue
+      === IssueTags issue
+      === IssueComments issue
 
 instance P.Render Issue where
   render = P.render . P.Detailed