diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-30 00:42:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-30 00:42:04 -0400 |
| commit | 08a0a46efe9b96ba741d4cd28451e313726dcba4 (patch) | |
| tree | 0ee26e93186472a4f6d2353497d697fefeb487af /Property | |
| parent | f8c8be2079873fefcb6e24f47e9573a08d207dc0 (diff) | |
improve
Diffstat (limited to 'Property')
| -rw-r--r-- | Property/GitHome.hs | 2 |
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 |