From 90efcd3203d64c2c5691e30ccc23307aae8d20c8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 15:31:57 -0400 Subject: refactor --- Property/GitHome.hs | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) (limited to 'Property/GitHome.hs') diff --git a/Property/GitHome.hs b/Property/GitHome.hs index 09d21326..99402b8e 100644 --- a/Property/GitHome.hs +++ b/Property/GitHome.hs @@ -1,22 +1,13 @@ module Property.GitHome where -import System.FilePath -import System.Directory -import Control.Applicative -import Control.Monad - -import Property -import Property.User -import Utility.SafeCommand -import Utility.Directory -import Utility.Monad -import Utility.Exception +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) $ - IOProperty ("githome " ++ user) (go =<< homedir user) + Property ("githome " ++ user) (go =<< homedir user) `requires` Apt.installed ["git", "myrepos"] where go Nothing = noChange -- cgit v1.2.3