From 7115d1ec162b4059b3e8e8f84bd8d5898c1db025 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 May 2014 19:41:05 -0400 Subject: moved source code to src This is to work around OSX's brain-damange regarding filename case insensitivity. Avoided moving config.hs, because it's a config file. Put in a symlink to make build work. --- Propellor/Property/OpenId.hs | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 Propellor/Property/OpenId.hs (limited to 'Propellor/Property/OpenId.hs') diff --git a/Propellor/Property/OpenId.hs b/Propellor/Property/OpenId.hs deleted file mode 100644 index 051d6425..00000000 --- a/Propellor/Property/OpenId.hs +++ /dev/null @@ -1,29 +0,0 @@ -module Propellor.Property.OpenId where - -import Propellor -import qualified Propellor.Property.File as File -import qualified Propellor.Property.Apt as Apt -import qualified Propellor.Property.Service as Service - -import Data.List - -providerFor :: [UserName] -> String -> Property -providerFor users baseurl = propertyList desc $ - [ Apt.serviceInstalledRunning "apache2" - , Apt.installed ["simpleid"] - `onChange` Service.restarted "apache2" - , File.fileProperty (desc ++ " configured") - (map setbaseurl) "/etc/simpleid/config.inc" - ] ++ map identfile users - where - url = "http://"++baseurl++"/simpleid" - desc = "openid provider " ++ url - setbaseurl l - | "SIMPLEID_BASE_URL" `isInfixOf` l = - "define('SIMPLEID_BASE_URL', '"++url++"');" - | otherwise = l - - -- the identitites directory controls access, so open up - -- file mode - identfile u = File.hasPrivContentExposed $ - concat $ [ "/var/lib/simpleid/identities/", u, ".identity" ] -- cgit v1.2.3