@@ -4,11 +4,12 @@ import Codec.Archive.Zip
44import qualified Data.ByteString.Lazy as BS
55import qualified Control.Exception as E
66import System.IO.Error (isDoesNotExistError)
7+import System.FilePath
78
89mkzip :: String -> IO ()
910mkzip fmt = do
10− let dir = "data/"++fmt
11− output = "data/reference."++fmt
11+ let dir = "data" </> fmt
12+ output = "data" </> "reference" <.> fmt
1213 cd <- getCurrentDirectory
1314 setCurrentDirectory dir
1415 archive <- addFilesToArchive [OptRecursive] emptyArchive ["."]