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

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

diff --git a/src/Propellor/Property/Prosody.hs b/src/Propellor/Property/Prosody.hs
index 78a2c529..7dbfb1e1 100644
--- a/src/Propellor/Property/Prosody.hs
+++ b/src/Propellor/Property/Prosody.hs
@@ -22,8 +22,7 @@ confEnabled conf cf = enable <!> disable
 		`onChange` reloaded
 	  where
 		test = not <$> doesFileExist (confValPath conf)
-		prop = property "prosody conf in place" $ makeChange $
-			createSymbolicLink target dir
+		prop = dir `File.isSymlinkedTo` target
 		target = confValRelativePath conf
 		dir = confValPath conf
 		confValRelativePath conf' = "../conf.avail" </> conf' <.> "cfg.lua"
-- 
cgit v1.3-2-g0d8e