make-reference-files: use proper path separators for Windows.
Fixes a bug with reference.docx and reference.odt in Windows builds.
This commit is contained in:
parent
a10cf0d080
commit
3a9d5d878c
1 changed files with 3 additions and 2 deletions
|
@ -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 ["."]
|
||||
|
|
Loading…
Add table
Reference in a new issue