cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

improve

This commit is contained in:
Joey Hess 2014-03-30 00:42:04 -04:00
parent f8c8be2079
commit 08a0a46efe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Property/GitHome.hs
View File

@ -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