diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/app/Main.hs b/app/Main.hs index da4ea6a..46f6e77 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -573,10 +573,10 @@ main = do map (if detailed then (P.render . P.Detailed) else (P.render . P.Summarized)) issues Options {colorize, noPager, width, command = Log {patch}} -> do es <- reverse . (.issueEvents) <$> getHistory - putDoc colorize noPager width . P.vsep $ + putDoc colorize noPager width $ if patch - then map (P.render . P.Detailed) es - else map (P.render . P.Summarized) es + then P.vsep . intersperse P.emptyDoc $ map (P.render . P.Detailed) es + else P.vsep $ map (P.render . P.Summarized) es Options {colorize, noPager, width, command = Show {id, edit}} -> do issues <- (.issues) <$> getHistory issue <- |