diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-10-18 08:55:11 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-10-18 08:55:11 -0700 |
| commit | b63566f09cfdf6de51356989dd2af4d0d411e5c3 (patch) | |
| tree | 0e8578fa52935ae67b5d73cb0ba7404a4c56cc4c /src/pandoc.hs | |
| parent | c27b8ba5e2ad9e42c0a451aca324668b0ebcd79f (diff) | |
| download | pandoc-b63566f09cfdf6de51356989dd2af4d0d411e5c3.tar.gz | |
Fixed bug in fetching CSL files from CSL data directory.
Diffstat (limited to 'src/pandoc.hs')
| -rw-r--r-- | src/pandoc.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs index 7b5d5fae5..db98f41ee 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -934,8 +934,8 @@ main = do then UTF8.readFile cslfile else do csldir <- getAppUserDataDirectory "csl" - readDataFile datadir (replaceDirectory - (replaceExtension cslfile "csl") csldir) + readDataFile (Just csldir) + (replaceExtension cslfile "csl") abbrevs <- maybe (return []) CSL.readJsonAbbrevFile cslabbrevs return $ Just csl { CSL.styleAbbrevs = abbrevs } else return Nothing |