diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 6ccc29a..603ab2a 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -626,7 +626,7 @@ editIssues issues = withSystemTempDirectory "anissue-edit" (go issues) where go :: [Issue] -> FilePath -> IO () go issues cwd = do - mapM_ (\issue -> T.writeFile (fp issue) issue.rawText) issues + mapM_ (\issue -> T.writeFile (fp issue) =<< issue.rawText) issues sh_ (proc "${EDITOR-vi} -- %" (map fp issues)) replaceTexts issues where |