blob: 4ebf18f024a833caefa4df48b126574851dd8309 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Propellor.Property.OpenId where
import Propellor
import qualified Propellor.Property.File as File
import qualified Propellor.Property.Apt as Apt
providerFor :: [UserName] -> Property
providerFor users = propertyList ("openid provider") $
[ serviceRunning "apache2"
`requires` Apt.installed ["apache2"]
, Apt.installed ["simpleid"]
] ++ map identfile users
where
identfile u = File.hasPrivContent $ concat
[ "/var/lib/simpleid/identities/", u, ".identity" ]
|
