fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: bump zip-stream

Browse Source
This commit is contained in:
Gregor Kleen 2020-09-10 15:09:26 +02:00
parent 350ee79af3
commit d2e8ac3a2a
3 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
stack.yaml
View File

@ -54,7 +54,7 @@ extra-deps:
- fastcdc - fastcdc
- git: git@gitlab2.rz.ifi.lmu.de:uni2work/zip-stream.git - git: git@gitlab2.rz.ifi.lmu.de:uni2work/zip-stream.git
commit: 094c70935f1d92016144cd4dfc0a99b831c56f25 commit: 843683d024f767de236f74d24a3348f69181a720
- generic-lens-1.2.0.0@sha256:b19e7970c93743a46bc3702331512a96d163de4356472f2d51a2945887aefe8c,6524 # manual downgrade; won't compile with >=2.0.0.0 - generic-lens-1.2.0.0@sha256:b19e7970c93743a46bc3702331512a96d163de4356472f2d51a2945887aefe8c,6524 # manual downgrade; won't compile with >=2.0.0.0

6
stack.yaml.lock
View File

@ -228,11 +228,11 @@ packages:
git: git@gitlab2.rz.ifi.lmu.de:uni2work/zip-stream.git git: git@gitlab2.rz.ifi.lmu.de:uni2work/zip-stream.git
pantry-tree: pantry-tree:
size: 812 size: 812
sha256: e191cb4e12ae1f056acdcf0393ff4dcb566b3ab82305aa14d6d4e35f49a64c96 sha256: 0da8bc38d73034962d2e2d1a7586b6dee848a629319fce9cbbf578348c61118c
commit: 094c70935f1d92016144cd4dfc0a99b831c56f25 commit: 843683d024f767de236f74d24a3348f69181a720
original: original:
git: git@gitlab2.rz.ifi.lmu.de:uni2work/zip-stream.git git: git@gitlab2.rz.ifi.lmu.de:uni2work/zip-stream.git
commit: 094c70935f1d92016144cd4dfc0a99b831c56f25 commit: 843683d024f767de236f74d24a3348f69181a720
- completed: - completed:
hackage: generic-lens-1.2.0.0@sha256:b19e7970c93743a46bc3702331512a96d163de4356472f2d51a2945887aefe8c,6524 hackage: generic-lens-1.2.0.0@sha256:b19e7970c93743a46bc3702331512a96d163de4356472f2d51a2945887aefe8c,6524
pantry-tree: pantry-tree:

6
test/Handler/Utils/ZipSpec.hs
View File

@ -1,5 +1,3 @@
{-# OPTIONS_GHC -Wno-error=deprecations #-}
module Handler.Utils.ZipSpec where module Handler.Utils.ZipSpec where
import TestImport import TestImport
@ -70,10 +68,6 @@ spec = describe "Zip file handling" $ do
acceptableTimeDifference t1 t2 = abs (diffUTCTime t1 t2) <= 2 acceptableTimeDifference t1 t2 = abs (diffUTCTime t1 t2) <= 2
forM_ (zipFiles `zip` zipFiles') $ \(file, file') -> do forM_ (zipFiles `zip` zipFiles') $ \(file, file') -> do
when (((/=) `on` acceptableFilenameChanges) file' file) $ do
traceM $ show (fileTitle file, fileTitle file')
traceM $ show (acceptableFilenameChanges file, acceptableFilenameChanges file')
traceM $ show (isNothing $ fileContent file, isNothing $ fileContent file')
(shouldBe `on` acceptableFilenameChanges) file' file (shouldBe `on` acceptableFilenameChanges) file' file
(fileModified file', fileModified file) `shouldSatisfy` uncurry acceptableTimeDifference (fileModified file', fileModified file) `shouldSatisfy` uncurry acceptableTimeDifference
(view _pureFileContent file' :: Maybe ByteString) `shouldBe` (view _pureFileContent file) (view _pureFileContent file' :: Maybe ByteString) `shouldBe` (view _pureFileContent file)