diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-05-28 09:59:08 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-05-28 09:59:08 -0700 |
| commit | 3a9d5d878c4aa9af384c3a609960dd9bd9bef145 (patch) | |
| tree | e07235d417411fe10b62c96771aefc27ed736aa2 | |
| parent | a10cf0d080f20f845764ff9a79f21199aaae42c9 (diff) | |
make-reference-files: use proper path separators for Windows.
Fixes a bug with reference.docx and reference.odt in Windows
builds.
| -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 ["."] |