wizard-wipeout/src-server/Server/Util.hs
2023-12-09 13:58:59 +01:00

13 lines
307 B
Haskell

module Server.Util where
import Control.Exception
import System.Directory
import System.IO.Error
removeIfExists :: FilePath -> IO ()
removeIfExists fileName = removeFile fileName `catch` handleExists
where handleExists e
| isDoesNotExistError e = return ()
| otherwise = throwIO e