summaryrefslogtreecommitdiff
path: root/src/Propellor/Types/Attr.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Types/Attr.hs')
-rw-r--r--src/Propellor/Types/Attr.hs48
1 files changed, 48 insertions, 0 deletions
diff --git a/src/Propellor/Types/Attr.hs b/src/Propellor/Types/Attr.hs
new file mode 100644
index 00000000..8b7d3b09
--- /dev/null
+++ b/src/Propellor/Types/Attr.hs
@@ -0,0 +1,48 @@
+module Propellor.Types.Attr where
+
+import Propellor.Types.OS
+import qualified Propellor.Types.Dns as Dns
+
+import qualified Data.Set as S
+import qualified Data.Map as M
+
+-- | The attributes of a host. For example, its hostname.
+data Attr = Attr
+ { _hostname :: HostName
+ , _os :: Maybe System
+ , _sshPubKey :: Maybe String
+ , _dns :: S.Set Dns.Record
+ , _namedconf :: M.Map Dns.Domain Dns.NamedConf
+
+ , _dockerImage :: Maybe String
+ , _dockerRunParams :: [HostName -> String]
+ }
+
+instance Eq Attr where
+ x == y = and
+ [ _hostname x == _hostname y
+ , _os x == _os y
+ , _dns x == _dns y
+ , _namedconf x == _namedconf y
+ , _sshPubKey x == _sshPubKey y
+
+ , _dockerImage x == _dockerImage y
+ , let simpl v = map (\a -> a "") (_dockerRunParams v)
+ in simpl x == simpl y
+ ]
+
+instance Show Attr where
+ show a = unlines
+ [ "hostname " ++ _hostname a
+ , "OS " ++ show (_os a)
+ , "sshPubKey " ++ show (_sshPubKey a)
+ , "dns " ++ show (_dns a)
+ , "namedconf " ++ show (_namedconf a)
+ , "docker image " ++ show (_dockerImage a)
+ , "docker run params " ++ show (map (\mk -> mk "") (_dockerRunParams a))
+ ]
+
+newAttr :: HostName -> Attr
+newAttr hn = Attr hn Nothing Nothing S.empty M.empty Nothing []
+
+type SetAttr = Attr -> Attr