diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-12-26 04:23:35 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-12-26 04:23:35 +0100 |
| commit | 97d2eb5a52d546db79ac687479f2d687de8445c1 (patch) | |
| tree | e4032c9484973789a4a2c25eae51344a7bf8e391 | |
| parent | bf03f255b1a198f45558221248408569e5e72bfe (diff) | |
chore: sha256 -> sha1
| -rw-r--r-- | app/Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/app/Main.hs b/app/Main.hs index f3411ca..adb16b4 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -19,7 +19,7 @@ import Data.Aeson qualified as J import Data.Attoparsec.Text qualified as A import Data.ByteString.Lazy qualified as LB import Data.Default -import Data.Digest.Pure.SHA (sha256, showDigest) +import Data.Digest.Pure.SHA (sha1, showDigest) import Data.Function ((&)) import Data.List import Data.List.NonEmpty qualified as N @@ -516,8 +516,7 @@ debug s x = fileKey :: FilePath -> IO FilePath fileKey filePath = - -- TODO Use `sha1` instead of `sha256` - showDigest . sha256 <$> LB.readFile filePath + showDigest . sha1 <$> LB.readFile filePath consume1 :: Bool -> Bool -> FilePath -> IO FilePath consume1 force keep filePath = do |