Commit 45b43f61 authored by Henrik Tramberend's avatar Henrik Tramberend
Browse files

Fix infinite loop

parent 7ebdec7e
......@@ -551,10 +551,10 @@ processCitesWithDefault pandoc@(Pandoc meta blocks) = do
document <-
do case lookupMeta "csl" meta of
Nothing -> do
app <- appData <$> getProjectDirs
let defaultCsl = app </> "template" </> "acm-sig-proceedings.csl"
let meta = setMeta "csl" (MetaString defaultCsl) meta
return (Pandoc meta blocks)
dir <- appData <$> getProjectDirs
let defaultCsl = dir </> "template" </> "acm-sig-proceedings.csl"
let cslMeta = setMeta "csl" (MetaString defaultCsl) meta
return (Pandoc cslMeta blocks)
_ -> return pandoc
liftIO $ processCites' document
......
......@@ -5,6 +5,6 @@ csl: 'acm-sig-proceedings.csl'
# Citation
Not quite recently published [@tramberend2003]. The bibliography is append at the end of the deck.
Not quite recently published [@tramberend2003]. The bibliography is appended at the end of the deck. CSL `{{csl}}` was used.
## Bibliography
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment