summaryrefslogtreecommitdiff
path: root/Property
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 00:42:04 -0400
committerJoey Hess2014-03-30 00:42:04 -0400
commit08a0a46efe9b96ba741d4cd28451e313726dcba4 (patch)
tree0ee26e93186472a4f6d2353497d697fefeb487af /Property
parentf8c8be2079873fefcb6e24f47e9573a08d207dc0 (diff)
improve
Diffstat (limited to 'Property')
-rw-r--r--Property/GitHome.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Property/GitHome.hs b/Property/GitHome.hs
index f0764db9..217e129a 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