summaryrefslogtreecommitdiff
path: root/Propellor/Types/Attr.hs
blob: 20e5e631425a1ef66c7bfe9c5ab9666388bc4d4c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
module Propellor.Types.Attr where

import qualified Data.Set as S

-- | The attributes of a host. For example, its hostname.
data Attr = Attr
	{ _hostname :: HostName
	, _cnames :: S.Set Domain
	}
	deriving (Eq, Show)

newAttr :: HostName -> Attr
newAttr hn = Attr hn S.empty

type HostName = String
type Domain = String