From 6808fe60e1ad7593455d477ff456d8dbfbe75331 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 14 Apr 2014 14:43:04 -0400
Subject: [PATCH] propellor spin

---
 Propellor/Property/SiteSpecific/JoeySites.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Propellor/Property/SiteSpecific/JoeySites.hs b/Propellor/Property/SiteSpecific/JoeySites.hs
index f409b09..5a2e164 100644
--- a/Propellor/Property/SiteSpecific/JoeySites.hs
+++ b/Propellor/Property/SiteSpecific/JoeySites.hs
@@ -192,10 +192,11 @@ annexRsyncServer = combineProperties "rsync server for git-annex autobuilders"
 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" 
-		]
+	, check (not <$> doesFileExist (dir </> "twitRss")) $
+		userScriptProperty "joey"
+			[ "cd " ++ dir
+			, "ghc --make twitRss" 
+			]
 	]
   where
 	dir = "/srv/web/tmp.kitenet.net/twitrss"