From 05d95fd1cbb89a84fc85e3efffdd03afee2ddc72 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Mon, 9 Oct 2017 17:18:42 +0200
Subject: [PATCH] Fix generation of UTCTimes

---
 test/Handler/ZipSpec.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/Handler/ZipSpec.hs b/test/Handler/ZipSpec.hs
index bdaec75da..6d9eb663d 100644
--- 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{..}