summaryrefslogtreecommitdiff
path: root/data
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2015-05-28 09:59:08 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2015-05-28 09:59:08 -0700
commit3a9d5d878c4aa9af384c3a609960dd9bd9bef145 (patch)
treee07235d417411fe10b62c96771aefc27ed736aa2 /data
parenta10cf0d080f20f845764ff9a79f21199aaae42c9 (diff)
make-reference-files: use proper path separators for Windows.
Fixes a bug with reference.docx and reference.odt in Windows builds.
Diffstat (limited to 'data')
-rw-r--r--data/make-reference-files.hs5
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 ["."]