From 51d8c2000f46b9c0a8f45ce8d927f23ef5b6193f Mon Sep 17 00:00:00 2001
From: Félix Sipma <felix.sipma@no-log.org>
Date: Fri, 16 Oct 2015 20:40:48 +0200
Subject: convert symlink properties to File.isSymlinkedTo

---
 src/Propellor/Property/Nginx.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src/Propellor/Property/Nginx.hs')

diff --git a/src/Propellor/Property/Nginx.hs b/src/Propellor/Property/Nginx.hs
index d0d4d3a9..1bd285c7 100644
--- a/src/Propellor/Property/Nginx.hs
+++ b/src/Propellor/Property/Nginx.hs
@@ -20,8 +20,7 @@ siteEnabled hn cf = enable <!> disable
 		`onChange` reloaded
 	  where
 		test = not <$> doesFileExist (siteVal hn)
-		prop = property "nginx site in place" $ makeChange $
-			createSymbolicLink target dir
+		prop = dir `File.isSymlinkedTo` target
 		target = siteValRelativeCfg hn
 		dir = siteVal hn
 	disable = trivial $ File.notPresent (siteVal hn)
-- 
cgit v1.3-2-g0d8e