From 479045277b29919797cee341b11d30bbd15ab3d7 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 13 Apr 2014 12:21:43 -0400
Subject: propellor spin

---
 Propellor/Property/OpenId.hs | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

(limited to 'Propellor/Property/OpenId.hs')

diff --git a/Propellor/Property/OpenId.hs b/Propellor/Property/OpenId.hs
index b896180f..d06bf88f 100644
--- a/Propellor/Property/OpenId.hs
+++ b/Propellor/Property/OpenId.hs
@@ -4,7 +4,6 @@ import Propellor
 import qualified Propellor.Property.File as File
 import qualified Propellor.Property.Apt as Apt
 import qualified Propellor.Property.Service as Service
-import Utility.FileMode
 
 import Data.List
 import System.Posix.Files
@@ -25,11 +24,7 @@ providerFor users baseurl = propertyList desc $
 			"define('SIMPLEID_BASE_URL', '"++url++"');"
 		| otherwise = l
 	
-	identfile u = combineProperties desc
-		[ File.hasPrivContent f
-		-- the identitites directory controls access, so open up
-		-- file mode
-		, File.mode f (combineModes (ownerWriteMode:readModes))
-		]
-	  where
-		f = concat $ [ "/var/lib/simpleid/identities/", u, ".identity" ]
+	-- the identitites directory controls access, so open up
+	-- file mode
+	identfile u = File.hasPrivContentExposed $
+		concat $ [ "/var/lib/simpleid/identities/", u, ".identity" ]
-- 
cgit v1.3-2-g0d8e