lambdatex-0.2.0.0: src/Text/LaTeX/LambdaTeX/Utils.hs

-- | ΛTeX utilities
module Text.LaTeX.LambdaTeX.Utils where

import Control.Exception
import System.Directory (removeFile)
import System.IO.Error (isDoesNotExistError)

-- | Remove the given file if it exists
removeIfExists :: FilePath -> IO ()
removeIfExists fileName = removeFile fileName `catch` handleExists
  where
    handleExists e
        | isDoesNotExistError e = return ()
        | otherwise = throwIO e