chore: bump zip-stream
This commit is contained in:
parent
350ee79af3
commit
d2e8ac3a2a
@ -54,7 +54,7 @@ extra-deps:
|
||||
- fastcdc
|
||||
|
||||
- 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
|
||||
|
||||
|
||||
@ -228,11 +228,11 @@ packages:
|
||||
git: git@gitlab2.rz.ifi.lmu.de:uni2work/zip-stream.git
|
||||
pantry-tree:
|
||||
size: 812
|
||||
sha256: e191cb4e12ae1f056acdcf0393ff4dcb566b3ab82305aa14d6d4e35f49a64c96
|
||||
commit: 094c70935f1d92016144cd4dfc0a99b831c56f25
|
||||
sha256: 0da8bc38d73034962d2e2d1a7586b6dee848a629319fce9cbbf578348c61118c
|
||||
commit: 843683d024f767de236f74d24a3348f69181a720
|
||||
original:
|
||||
git: git@gitlab2.rz.ifi.lmu.de:uni2work/zip-stream.git
|
||||
commit: 094c70935f1d92016144cd4dfc0a99b831c56f25
|
||||
commit: 843683d024f767de236f74d24a3348f69181a720
|
||||
- completed:
|
||||
hackage: generic-lens-1.2.0.0@sha256:b19e7970c93743a46bc3702331512a96d163de4356472f2d51a2945887aefe8c,6524
|
||||
pantry-tree:
|
||||
|
||||
@ -1,5 +1,3 @@
|
||||
{-# OPTIONS_GHC -Wno-error=deprecations #-}
|
||||
|
||||
module Handler.Utils.ZipSpec where
|
||||
|
||||
import TestImport
|
||||
@ -70,10 +68,6 @@ spec = describe "Zip file handling" $ do
|
||||
acceptableTimeDifference t1 t2 = abs (diffUTCTime t1 t2) <= 2
|
||||
|
||||
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
|
||||
(fileModified file', fileModified file) `shouldSatisfy` uncurry acceptableTimeDifference
|
||||
(view _pureFileContent file' :: Maybe ByteString) `shouldBe` (view _pureFileContent file)
|
||||
|
||||
Loading…
Reference in New Issue
Block a user