diff options
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 |