diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-13 02:28:40 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-13 02:28:40 -0400 |
| commit | c97285a21ea0e392e8c63c1898ee2deeb34e99a0 (patch) | |
| tree | 7f7dfd46b003b5e41ea566e9ecd44316ec12d6af /Propellor/Property/SiteSpecific | |
| parent | c7830f4e669735bf46945592b315e7e367129888 (diff) | |
propellor spin
Diffstat (limited to 'Propellor/Property/SiteSpecific')
| -rw-r--r-- | Propellor/Property/SiteSpecific/GitHome.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Propellor/Property/SiteSpecific/GitHome.hs b/Propellor/Property/SiteSpecific/GitHome.hs index 1ba56b94..ee46a9e4 100644 --- a/Propellor/Property/SiteSpecific/GitHome.hs +++ b/Propellor/Property/SiteSpecific/GitHome.hs @@ -11,8 +11,7 @@ installedFor user = check (not <$> hasGitDir user) $ Property ("githome " ++ user) (go =<< liftIO (homedir user)) `requires` Apt.installed ["git"] where - go Nothing = noChange - go (Just home) = do + go home = do let tmpdir = home </> "githome" ensureProperty $ combineProperties "githome setup" [ userScriptProperty user ["git clone " ++ url ++ " " ++ tmpdir] @@ -32,5 +31,4 @@ 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") + go home = doesDirectoryExist (home </> ".git") |