Fix generation of UTCTimes

2017-10-09 17:18:42 +02:00 · 2017-10-09 17:18:42 +02:00 · 05d95fd1cb
commit 05d95fd1cb
parent 2e65cf175c
1 changed files with 2 additions and 2 deletions
--- a/test/Handler/ZipSpec.hs
+++ b/test/Handler/ZipSpec.hs
@ -19,8 +19,8 @@ import Data.Time
 instance Arbitrary File where
  arbitrary = do
    fileTitle <- joinPath <$> arbitrary
-    let date = addDays <$> arbitrary <*> pure (fromGregorian 2043 7 2)
-    fileModified <- UTCTime <$> date <*> arbitrary
+    date <- addDays <$> arbitrary <*> pure (fromGregorian 2043 7 2)
+    fileModified <- addUTCTime <$> arbitrary <*> pure (UTCTime date 0)
    fileContent <- arbitrary
    return File{..}