diff options
Diffstat (limited to 'app/Issue/Render.hs')
| -rw-r--r-- | app/Issue/Render.hs | 18 |
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 |