Permalink
Browse files

updated pandoc

  • Loading branch information...
1 parent 68610eb commit df84b371d4cb5dd639a8fef3d3702af195d37d0a @Soares committed Jun 2, 2012
Showing with 2 additions and 2 deletions.
  1. +1 −1 src/Book.hs
  2. +1 −1 src/Target/Pandoc.hs
View
@@ -60,7 +60,7 @@ load opts = do
-- Filter the targets included by '-t' options
let inTargets path = case optTargets opts of
[] -> True
- xs -> takeFileName path `elem` xs
+ xs -> (dropExtension . takeFileName) path `elem` xs
let included path = not (Config.isSpecial path) && inTargets path
paths <- filter included <$> liftIO (ls targetDir)
targets <- mapM (Target.load conf') paths
View
@@ -42,7 +42,7 @@ write format conf dest doc = case lookup format writers of
Nothing | format == "pdf" ->
PDF.outputLaTeX conf dest $ writeLaTeX opts doc'
Nothing | format == "epub" ->
- writeEPUB (Config.style conf) epubOpts doc'
+ writeEPUB (Config.style conf) [] epubOpts doc'
>>= B.writeFile (encodeString dest)
Nothing | format == "odt" ->
writeODT (Config.resources conf) opts doc'

0 comments on commit df84b37

Please sign in to comment.