From 380c1b0fd6c25dec3c924b82f1d721aa91a001da Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 23:37:54 -0400 Subject: prepare for hackage --- Property/GitHome.hs | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 Property/GitHome.hs (limited to 'Property/GitHome.hs') diff --git a/Property/GitHome.hs b/Property/GitHome.hs deleted file mode 100644 index 99402b8e..00000000 --- a/Property/GitHome.hs +++ /dev/null @@ -1,30 +0,0 @@ -module Property.GitHome where - -import Common -import qualified Property.Apt as Apt -import Property.User - -{- Clones Joey Hess's git home directory, and runs its fixups script. -} -installedFor :: UserName -> Property -installedFor user = check (not <$> hasGitDir user) $ - Property ("githome " ++ user) (go =<< homedir user) - `requires` Apt.installed ["git", "myrepos"] - where - go Nothing = noChange - go (Just home) = do - let tmpdir = home "githome" - ok <- boolSystem "git" [Param "clone", Param url, Param tmpdir] - <&&> (and <$> moveout tmpdir home) - <&&> (catchBoolIO $ removeDirectory tmpdir >> return True) - <&&> 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 - forM fs $ \f -> boolSystem "mv" [File f, File home] - url = "git://git.kitenet.net/joey/home" - -hasGitDir :: UserName -> IO Bool -hasGitDir user = go =<< homedir user - where - go Nothing = return False - go (Just home) = doesDirectoryExist (home ".git") -- cgit v1.2.3