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

Fix generation of UTCTimes

Browse Source
This commit is contained in:
Gregor Kleen 2017-10-09 17:18:42 +02:00
parent 2e65cf175c
commit 05d95fd1cb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Handler/ZipSpec.hs
View File

@ -19,8 +19,8 @@ import Data.Time
instance Arbitrary File where instance Arbitrary File where
arbitrary = do arbitrary = do
fileTitle <- joinPath <$> arbitrary fileTitle <- joinPath <$> arbitrary
let date = addDays <$> arbitrary <*> pure (fromGregorian 2043 7 2) date <- addDays <$> arbitrary <*> pure (fromGregorian 2043 7 2)
fileModified <- UTCTime <$> date <*> arbitrary fileModified <- addUTCTime <$> arbitrary <*> pure (UTCTime date 0)
fileContent <- arbitrary fileContent <- arbitrary
return File{..} return File{..}