Fix tests

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