From 19b148277aa5a80bce1c87e33bb857e66698f4eb Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Fri, 8 Dec 2023 07:29:35 +0100
Subject: feat: easily separate renderables by blank lines

---
 app/Issue/Render.hs | 18 ++++--------------
 1 file changed, 4 insertions(+), 14 deletions(-)

(limited to 'app/Issue/Render.hs')

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
-- 
cgit v1.2.3