From 97d2eb5a52d546db79ac687479f2d687de8445c1 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Tue, 26 Dec 2023 04:23:35 +0100 Subject: chore: sha256 -> sha1 --- app/Main.hs | 5 ++--- 1 file 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 -- cgit v1.2.3