summaryrefslogtreecommitdiff
path: root/Propellor/Types
diff options
context:
space:
mode:
authorJoey Hess2014-04-10 23:20:12 -0400
committerJoey Hess2014-04-10 23:20:12 -0400
commit839e60bbcedf99efb7ec7fc8330585006ea1f222 (patch)
tree3e7c90939f6b1dc4a10a4372c8fa0768017f3a1f /Propellor/Types
parent50cd59cb3e6d20afe48a50fa9dc0c3a9cf9d9960 (diff)
propellor spin
Diffstat (limited to 'Propellor/Types')
-rw-r--r--Propellor/Types/Attr.hs16
1 files changed, 14 insertions, 2 deletions
diff --git a/Propellor/Types/Attr.hs b/Propellor/Types/Attr.hs
index 20e5e631..70161725 100644
--- a/Propellor/Types/Attr.hs
+++ b/Propellor/Types/Attr.hs
@@ -6,11 +6,23 @@ import qualified Data.Set as S
data Attr = Attr
{ _hostname :: HostName
, _cnames :: S.Set Domain
+
+ , _dockerImage :: Maybe String
+ , _dockerRunParams :: [HostName -> String]
}
- deriving (Eq, Show)
+
+instance Eq Attr where
+ x == y = and
+ [ _hostname x == _hostname y
+ , _cnames x == _cnames y
+
+ , _dockerImage x == _dockerImage y
+ , let simpl v = map (\a -> a "") (_dockerRunParams v)
+ in simpl x == simpl y
+ ]
newAttr :: HostName -> Attr
-newAttr hn = Attr hn S.empty
+newAttr hn = Attr hn S.empty Nothing []
type HostName = String
type Domain = String