diff options
Diffstat (limited to 'src/Compile/Exec.hs')
| -rw-r--r-- | src/Compile/Exec.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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)" |