diff options
Diffstat (limited to 'app/Main.hs')
| -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 |