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/Uwsgi.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/src/Propellor/Property/Uwsgi.hs b/src/Propellor/Property/Uwsgi.hs
index 8beea17a..c6ae880b 100644
--- a/src/Propellor/Property/Uwsgi.hs
+++ b/src/Propellor/Property/Uwsgi.hs
@@ -22,8 +22,7 @@ appEnabled an cf = enable <!> disable
 		`onChange` reloaded
 	  where
 		test = not <$> doesFileExist (appVal an)
-		prop = property "uwsgi app in place" $ makeChange $
-			createSymbolicLink target dir
+		prop = dir `File.isSymlinkedTo` target
 		target = appValRelativeCfg an
 		dir = appVal an
 	disable = trivial $ File.notPresent (appVal an)
-- 
cgit v1.3-2-g0d8e