diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/App/OutputSettings.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/App/OutputSettings.hs b/src/Text/Pandoc/App/OutputSettings.hs index ab224cd7f..537def363 100644 --- a/src/Text/Pandoc/App/OutputSettings.hs +++ b/src/Text/Pandoc/App/OutputSettings.hs @@ -188,7 +188,9 @@ optToOutputSettings scriptingEngine opts = do templ <- case optTemplate opts of _ | not standalone -> return Nothing - Nothing -> Just <$> compileDefaultTemplate format + Nothing -> + let filename = T.pack . takeFileName . T.unpack + in Just <$> compileDefaultTemplate (filename format) Just tp -> do -- strip off extensions let tp' = case takeExtension tp of |