From 2d434d9b8ae0bce25696b1b790128692ce7e7c0a Mon Sep 17 00:00:00 2001 From: "Yann Esposito (Yogsototh)" Date: Sun, 7 Oct 2018 17:20:45 +0200 Subject: [PATCH] review show better display --- src/GPM/Review.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/GPM/Review.hs b/src/GPM/Review.hs index 84c1c25..dfc3c66 100644 --- a/src/GPM/Review.hs +++ b/src/GPM/Review.hs @@ -197,7 +197,12 @@ retrieveReview br = do showReview :: Text -> IO () showReview br = do reviewName <- getTmpReviewFile br + putText "--------------------------------------------------------------------------------" + putText $ format ("Review file: "%fp) reviewName + putText $ format ("(setq org-annotate-file-storage-file \""%fp%"\")") reviewName + putText "--------------------------------------------------------------------------------" stdout (input reviewName) + putText "--------------------------------------------------------------------------------" protectStr :: Text -> Text protectStr =