propellor spin

Propellor/Property/SiteSpecific/JoeySites.hs

@@ -188,3 +188,14 @@ annexRsyncServer = combineProperties "rsync server for git-annex autobuilders"
 		[ File.dirExists d
 		, File.ownerGroup d "joey" "joey"
 		]
+
+twitRss :: Property
+twitRss = combineProperties "twitter rss"
+	[ Git.cloned "joey" "git://git.kitenet.net/twitrss.git" dir Nothing
+	, check (doesFileExist $ dir </> "twitRss") $ userScriptProperty "joey"
+		[ "cd " ++ dir
+		, "ghc --make twitRss" 
+		]
+	]
+  where
+	dir = "/srv/web/tmp.kitenet.net/twitrss"

config-joey.hs

@@ -104,6 +104,7 @@ hosts =               --                  (o)  `
 			"tmp.kitenet.net"
 			"26fd6e38-1226-11e2-a75f-ff007033bdba"
 			[]
+		& JoeySites.twitRss
 		
 		& Apt.installed ["ntop"]