diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-12-20 02:35:38 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-03-25 04:57:19 +0100 |
| commit | 812fcbadae72960d200286355c9aaecfbe350bf2 (patch) | |
| tree | f5b872861daa9e55162431f8ea9ccb27b11e1acd /app/IssueEvent.hs | |
| parent | 38e98644192ed38de8b0a789cebfb0a6149eadbd (diff) | |
chore: parameterize `sh`'s output
Diffstat (limited to 'app/IssueEvent.hs')
| -rw-r--r-- | app/IssueEvent.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/app/IssueEvent.hs b/app/IssueEvent.hs index 0c641ad..28bbae1 100644 --- a/app/IssueEvent.hs +++ b/app/IssueEvent.hs @@ -10,8 +10,6 @@ import Data.Binary (Binary (..)) import Data.Function ((&)) import Data.Text qualified as T import Data.Text.IO qualified as T -import Data.Text.Lazy qualified as LT -import Data.Text.Lazy.Encoding qualified as LT import GHC.Generics (Generic) import GHC.Records (HasField (..)) import Git.CommitHash (CommitHash) @@ -52,7 +50,7 @@ diff old new = withSystemTempDirectory "diff" $ \tmp -> do let cwd = tmp T.writeFile (tmp </> "old") old T.writeFile (tmp </> "new") new - A.parse . LT.toStrict . LT.decodeUtf8 <$> sh ("git diff --no-index -- old new || :" & setWorkingDir cwd) + A.parse <$> sh ("git diff --no-index -- old new || :" & setWorkingDir cwd) instance P.Render IssueEvent where render = P.render . P.Detailed |