diff --git a/src/Docster/Compiler.hs b/src/Docster/Compiler.hs index ad8b127..1c7fa9b 100644 --- a/src/Docster/Compiler.hs +++ b/src/Docster/Compiler.hs @@ -275,7 +275,7 @@ generateOutputM pandoc = do if writesFile then do outputPath <- asks ccOutputPath - _ <- liftIO $ generateOutputFile strategy outputPath pandoc + _ <- liftIO $ generateOutputFile outputPath pandoc return "" -- placeholder, won't be used else liftEitherM $ generateOutput strategy pandoc @@ -328,7 +328,7 @@ generateOutput strategy transformed = do -- | Generate output file directly (for DOCX which writes to file) generateOutputFile :: CompilationStrategy -> FilePath -> Pandoc -> IO (Either DocsterError ()) -generateOutputFile _ outputPath pandoc = do +generateOutputFile outputPath pandoc = do result <- runIO $ writeDocx def pandoc case result of Left err -> return $ Left $ FileError $ "DOCX generation failed: " <> T.pack (show err)