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:
John MacFarlane 2015-05-28 09:59:08 -07:00
parent a10cf0d080
commit 3a9d5d878c

View file

@ -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 ["."]