@@ -934,8 +934,8 @@ main = do
934934 then UTF8.readFile cslfile
935935 else do
936936 csldir <- getAppUserDataDirectory "csl"
937− readDataFile datadir (replaceDirectory
938− (replaceExtension cslfile "csl") csldir)
937+ readDataFile (Just csldir)
938+ (replaceExtension cslfile "csl")
939939 abbrevs <- maybe (return []) CSL.readJsonAbbrevFile cslabbrevs
940940 return $ Just csl { CSL.styleAbbrevs = abbrevs }
941941 else return Nothing