moved source code to src

This is to work around OSX's brain-damange regarding filename case
insensitivity.

Avoided moving config.hs, because it's a config file. Put in a symlink to
make build work.

1 files changed, 0 insertions, 34 deletions

diff --git a/Propellor/Property/SiteSpecific/GitHome.hs b/Propellor/Property/SiteSpecific/GitHome.hs
deleted file mode 100644
index 6ed02146..00000000
--- a/Propellor/Property/SiteSpecific/GitHome.hs
+++ /dev/null
@@ -1,34 +0,0 @@
-module Propellor.Property.SiteSpecific.GitHome where
-
-import Propellor
-import qualified Propellor.Property.Apt as Apt
-import Propellor.Property.User
-import Utility.SafeCommand
-
--- | 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 =<< liftIO (homedir user))
-		`requires` Apt.installed ["git"]
-  where
-	go home = do
-		let tmpdir = home </> "githome"
-		ensureProperty $ combineProperties "githome setup"
-			[ userScriptProperty user ["git clone " ++ url ++ " " ++ tmpdir]
-			, property "moveout" $ makeChange $ void $
-				moveout tmpdir home
-			, property "rmdir" $ makeChange $ void $
-				catchMaybeIO $ removeDirectory tmpdir
-			, userScriptProperty user ["rm -rf .aptitude/ .bashrc .profile; bin/mr checkout; bin/fixups"]
-			]
-	moveout tmpdir home = do
-		fs <- dirContents tmpdir
-		forM fs $ \f -> boolSystem "mv" [File f, File home]
-
-url :: String
-url = "git://git.kitenet.net/joey/home"
-
-hasGitDir :: UserName -> IO Bool
-hasGitDir user = go =<< homedir user
-  where
-	go home = doesDirectoryExist (home </> ".git")