From 08a0a46efe9b96ba741d4cd28451e313726dcba4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 00:42:04 -0400 Subject: [PATCH] improve --- Property/GitHome.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Property/GitHome.hs b/Property/GitHome.hs index f0764db..217e129 100644 --- a/Property/GitHome.hs +++ b/Property/GitHome.hs @@ -23,7 +23,7 @@ installedFor user = check (not <$> hasGitDir user) $ ok <- boolSystem "git" [Param "clone", Param url, Param tmpdir] <&&> (and <$> moveout tmpdir home) <&&> (catchBoolIO $ removeDirectory tmpdir >> return True) - <&&> boolSystem "su" [Param "-c", Param "cd; bin/fixups", Param user] + <&&> boolSystem "su" [Param "-c", Param "cd; rm -rf .aptitude/ .bashrc .profile; mr checkout; bin/fixups", Param user] return $ if ok then MadeChange else FailedChange moveout tmpdir home = do fs <- dirContents tmpdir