@@ -64,12 +64,12 @@ runLatexRaw file = do
6464runLatex :: FilePath -> IO (Either String FilePath)
6565runLatex file = step 3
6666 where
67− step 0 = return $ Left "Limit of attempts reached"
6867 step n = do
6968 result <- runLatexRaw file
7069 case result of
7170 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
7373 Right pdfFile -> return $ Right pdfFile
7474
7575checkLatex :: String -> (Bool, Bool, Bool, String)