summaryrefslogtreecommitdiff
path: root/Property/GitHome.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Property/GitHome.hs')
-rw-r--r--Property/GitHome.hs15
1 files changed, 3 insertions, 12 deletions
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