From aa2d33922a9ca06e407ee362b5c4ddb08cefb9b3 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 9 Nov 2018 14:53:07 +0100 Subject: [PATCH] Fix tests --- test/Handler/Utils/ZipSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Handler/Utils/ZipSpec.hs b/test/Handler/Utils/ZipSpec.hs index eca7d9c6a..b18dbe8ab 100644 --- a/test/Handler/Utils/ZipSpec.hs +++ b/test/Handler/Utils/ZipSpec.hs @@ -18,7 +18,7 @@ import Data.Time instance Arbitrary File where arbitrary = do - fileTitle <- joinPath <$> arbitrary + fileTitle <- (joinPath <$> arbitrary) `suchThat` (any $ not . isPathSeparator) date <- addDays <$> arbitrary <*> pure (fromGregorian 2043 7 2) fileModified <- addUTCTime <$> arbitrary <*> pure (UTCTime date 0) fileContent <- arbitrary