Correctly recognize book documentclass in metadata.

Closes #2395.
2015-09-25 23:28:38 -07:00 · 2015-09-25 23:28:38 -07:00 · da1b599c96
commit da1b599c96
parent dcb0b02aa3
1 changed files with 1 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@ -120,7 +120,7 @@ pandocToLaTeX options (Pandoc meta blocks) = do
                              Right r -> r
                              Left _  -> ""
  case lookup "documentclass" (writerVariables options) `mplus`
-        parseMaybe (withObject "object" (.: "documentclass")) metadata of
+        fmap stringify (lookupMeta "documentclass" meta) of
         Just x  | x `elem` bookClasses -> modify $ \s -> s{stBook = True}
                 | otherwise            -> return ()
         Nothing | documentClass `elem` bookClasses