From b63566f09cfdf6de51356989dd2af4d0d411e5c3 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 18 Oct 2012 08:55:11 -0700
Subject: Fixed bug in fetching CSL files from CSL data directory.

---
 src/pandoc.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/pandoc.hs')

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
-- 
cgit v1.2.3