From e26f5ab33e1aee655df9469e03f88afd76a6335c Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Wed, 26 Mar 2025 23:45:56 +0100 Subject: Compile.Exec: also remove tmpdir when compilation fails --- src/Compile/Exec.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Compile/Exec.hs') diff --git a/src/Compile/Exec.hs b/src/Compile/Exec.hs index fa61910..b01b715 100644 --- a/src/Compile/Exec.hs +++ b/src/Compile/Exec.hs @@ -54,7 +54,9 @@ buildKernel csource funnames = do case ec of ExitSuccess -> return () - ExitFailure{} -> ioError (mkIOError userErrorType "chad kernel compilation failed" Nothing Nothing) + ExitFailure{} -> do + removeDirectoryRecursive path + ioError (mkIOError userErrorType "chad kernel compilation failed" Nothing Nothing) numLoaded <- atomicModifyIORef' numLoadedCounter (\n -> (n+1, n+1)) when debug $ hPutStrLn stderr $ "[chad] loading kernel " ++ path ++ " (" ++ show numLoaded ++ " total)" -- cgit v1.2.3-70-g09d2