chore: uncache large issue fields

1 files changed, 8 insertions, 4 deletions

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}