summaryrefslogtreecommitdiff
path: root/doc/forum/functions_that_yield_properties/comment_2_1abdc8ae6e1a00f02fa0130d845ec236._comment
blob: 34a146160f0847499b7d957e997e19a7901c27fe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
[[!comment format=mdwn
 username="joey"
 subject="""comment 2"""
 date="2016-06-02T22:21:52Z"
 content="""
Another, simpler approach that I often use in my config.hs:

	foo :: Host
	foo = host "foo.example.com" $ props
		& User.accountFor myacc
		& Sudo.enabledFor myacc
	  where
		myacc = "joey"

You can also bundle up a bunch of properties that
each need a User into a single combined
`User -> Property DebianLike`

	myAccountIs :: User -> Property DebianLike
	myAccountIs u = propertyList ("my user is " ++ u) $ props
		& User.accountFor u
		& Sudo.enabledFor u
"""]]