Create directory of output file if it doesn't exist.

Closes #11040.

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs
index a5a117c04..8035475f9 100644
--- a/src/Text/Pandoc/App.hs
+++ b/src/Text/Pandoc/App.hs
@@ -42,11 +42,12 @@ import qualified Data.Text.Lazy as TL
 import qualified Data.Text.Lazy.Encoding as TE
 import qualified Data.Text.Encoding.Error as TE
 import Data.Char (toLower)
-import System.Directory (doesDirectoryExist, createDirectory)
+import System.Directory (doesDirectoryExist, createDirectory,
+                         createDirectoryIfMissing)
 import Codec.Archive.Zip (toArchiveOrFail,
                           extractFilesFromArchive, ZipOption(..))
 import System.Exit (exitSuccess)
-import System.FilePath ( takeBaseName, takeExtension)
+import System.FilePath ( takeBaseName, takeExtension, takeDirectory)
 import System.IO (nativeNewline, stdout)
 import qualified System.IO as IO (Newline (..))
 import Text.Pandoc
@@ -116,6 +117,8 @@ convertWithOpts scriptingEngine opts = do
                      CRLF   -> IO.CRLF
                      LF     -> IO.LF
                      Native -> nativeNewline
+      let outputFileDir = takeDirectory outputFile
+      createDirectoryIfMissing True outputFileDir
       case output of
         TextOutput t    -> writerFn eol outputFile t
         BinaryOutput bs -> writeFnBinary outputFile bs