From 2bbd2f8b692dd952903a9f1527f2779a916118ab Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Wed, 13 Dec 2023 03:47:14 +0100
Subject: chore: uncache large issue fields

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

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

diff --git a/app/Issue/Render.hs b/app/Issue/Render.hs
index c8a913b..aca8134 100644
--- a/app/Issue/Render.hs
+++ b/app/Issue/Render.hs
@@ -42,8 +42,10 @@ newtype IssueDescription = IssueDescription {unIssueDescription :: Issue}
 
 instance P.Render IssueDescription where
   render (IssueDescription issue) =
-    maybe P.emptyDoc (P.render . N.toList) $
-      issue.description
+    P.render
+      ( maybe P.emptyDoc (P.render . N.toList)
+          <$> issue.description
+      )
 
 instance P.Render (P.Linked Issue) where
   render (P.Linked issue)
@@ -71,8 +73,10 @@ newtype IssueComments = IssueComments {unIssueComments :: Issue}
 
 instance P.Render IssueComments where
   render (IssueComments issue) =
-    maybe P.emptyDoc (P.vsep . map P.render . N.toList) $
-      issue.comments
+    P.render
+      ( maybe P.emptyDoc (P.vsep . map P.render . N.toList)
+          <$> issue.comments
+      )
 
 newtype IssueOpenedBy = IssueOpenedBy {unIssueOpenedBy :: Issue}
 
-- 
cgit v1.2.3