diff options
| -rw-r--r-- | data/make-reference-files.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/data/make-reference-files.hs b/data/make-reference-files.hs index 2e64dc51f..77e518496 100644 --- a/data/make-reference-files.hs +++ b/data/make-reference-files.hs @@ -4,11 +4,12 @@ import Codec.Archive.Zip import qualified Data.ByteString.Lazy as BS import qualified Control.Exception as E import System.IO.Error (isDoesNotExistError) +import System.FilePath mkzip :: String -> IO () mkzip fmt = do - let dir = "data/"++fmt - output = "data/reference."++fmt + let dir = "data" </> fmt + output = "data" </> "reference" <.> fmt cd <- getCurrentDirectory setCurrentDirectory dir archive <- addFilesToArchive [OptRecursive] emptyArchive ["."] |