Fixed tex \end fuckup

1 files changed, 7 insertions, 3 deletions

diff --git a/src/Tex.hs b/src/Tex.hs
index a247218..5d347b9 100644
--- a/src/Tex.hs
+++ b/src/Tex.hs
@@ -2,10 +2,10 @@ module Tex
        ( compileTex
        ) where
 
-import System.IO (stdout, stderr, hPutStrLn, writeFile, readFile)
-import System.IO.Temp (withSystemTempDirectory)
+import System.IO (stdout, stderr, hPutStrLn, writeFile, readFile, hClose)
+import System.IO.Temp (withSystemTempDirectory, openTempFile)
 import System.Process (callProcess, readProcessWithExitCode)
-import System.Directory (copyFile, getCurrentDirectory, setCurrentDirectory)
+import System.Directory (copyFile, getCurrentDirectory, setCurrentDirectory, getTemporaryDirectory)
 import System.FilePath (takeFileName, FilePath(..), (</>))
 import System.Exit (ExitCode(..))
 
@@ -50,6 +50,10 @@ compileTex' input tmpDir = do
   when (exitCode /= ExitSuccess) $ do
     hPutStrLn stdout out
     hPutStrLn stderr err
+    (srcF, srcH) <- flip openTempFile "source.tex" =<< getTemporaryDirectory
+    hPutStrLn srcH input
+    hClose srcH
+    hPutStrLn stdout $ "Tex source saved to " ++ srcF
     throwIO exitCode
   (\x -> return $!! (x, extractAlignment err)) =<< (readFile $ tmpDir </> "image.svg")
   where