[commit: hadrian] master: Add clean routines for fs (#533) (47678ea)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/hadrian

On branch  : master
Link       : http://git.haskell.org/hadrian.git/commitdiff/47678ea67682ce49b37d5b3109a5b42030c09fc3

>---------------------------------------------------------------

commit 47678ea67682ce49b37d5b3109a5b42030c09fc3
Author: Tamar Christina <Mistuke at users.noreply.github.com>
Date:   Tue Mar 20 08:51:53 2018 +0000

    Add clean routines for fs (#533)


>---------------------------------------------------------------

47678ea67682ce49b37d5b3109a5b42030c09fc3
 src/Rules/Clean.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/Rules/Clean.hs b/src/Rules/Clean.hs
index d11cbf5..7592c60 100644
--- a/src/Rules/Clean.hs
+++ b/src/Rules/Clean.hs
@@ -18,6 +18,19 @@ cleanSourceTree = do
     removeDirectory inplaceBinPath
     removeDirectory inplaceLibPath
     removeDirectory "sdistprep"
+    cleanFsUtils
+
+-- Clean all temporary fs files copied by configure into the source folder
+cleanFsUtils :: Action ()
+cleanFsUtils = do
+    let dirs = [ "utils/lndir/"
+               , "utils/unlit/"
+               , "rts/"
+               , "libraries/base/include/"
+               , "libraries/base/cbits/"
+               ]
+    liftIO $ forM_ dirs (flip removeFiles ["fs.*"])
+
 
 cleanRules :: Rules ()
 cleanRules = "clean" ~> clean