@@ -64,12 +64,12 @@ runLatexRaw file = do
64runLatex :: FilePath -> IO (Either String FilePath)
64runLatex :: FilePath -> IO (Either String FilePath)
65runLatex file = step 3
65runLatex file = step 3
67− step 0 = return $ Left "Limit of attempts reached"
68 step n = do
67 step n = do
69 result <- runLatexRaw file
68 result <- runLatexRaw file
70 case result of
69 case result of
71 Left (Left err) -> return $ Left err
70 Left (Left err) -> return $ Left err
72− Left (Right _ ) -> step (n-1 :: Int)
71+ Left (Right _) | n > 1 -> step (n-1 :: Int)
72+ Left (Right msg) -> return $ Left msg
73 Right pdfFile -> return $ Right pdfFile
73 Right pdfFile -> return $ Right pdfFile
75checkLatex :: String -> (Bool, Bool, Bool, String)
75checkLatex :: String -> (Bool, Bool, Bool, String)