diff --git a/src/Docster/Compiler.hs b/src/Docster/Compiler.hs index e7220e5..ad8b127 100644 --- a/src/Docster/Compiler.hs +++ b/src/Docster/Compiler.hs @@ -13,7 +13,7 @@ import Docster.Types ( DocsterError(..), OutputFormat(..), SourceDir(..), OutputDir(..), OutputPath(..) , DiagramConfig(..), computeOutputDir, ensureOutputDir ) -import Text.Pandoc.Writers (writeDocx) +import Text.Pandoc.Writers () import qualified Data.ByteString.Lazy as BSL import Docster.Transform (transformDocument) import Docster.LaTeX (latexTemplate) @@ -275,7 +275,7 @@ generateOutputM pandoc = do if writesFile then do outputPath <- asks ccOutputPath - liftIO $ generateOutputFile strategy outputPath pandoc + _ <- liftIO $ generateOutputFile strategy 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 strategy 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)