#156, ensure the entire piece is under a removeFiles so we always clean up the garbage
authorNeil Mitchell <ndmitchell@gmail.com>
Tue, 12 Jan 2016 22:34:39 +0000 (22:34 +0000)
committerNeil Mitchell <ndmitchell@gmail.com>
Tue, 12 Jan 2016 22:34:39 +0000 (22:34 +0000)
src/Rules/Libffi.hs

index 1d761ff..8bcfdae 100644 (file)
@@ -82,9 +82,10 @@ libffiRules = do
         need tarballs
         let libname = dropExtension . dropExtension . takeFileName $ head tarballs
 
-        build $ fullTarget libffiTarget Tar tarballs [buildRootPath]
-        actionFinally (moveDirectory (buildRootPath -/- libname) libffiBuild) $
-            removeFiles buildRootPath [libname <//> "*"]
+        actionFinally (do
+            build $ fullTarget libffiTarget Tar tarballs [buildRootPath]
+            moveDirectory (buildRootPath -/- libname) libffiBuild) $
+                removeFiles buildRootPath [libname <//> "*"]
 
         fixFile (libffiBuild -/- "Makefile.in") fixLibffiMakefile