summaryrefslogtreecommitdiff
path: root/Propellor/Types/Attr.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor/Types/Attr.hs')
-rw-r--r--Propellor/Types/Attr.hs48
1 files changed, 0 insertions, 48 deletions
diff --git a/Propellor/Types/Attr.hs b/Propellor/Types/Attr.hs
deleted file mode 100644
index 8b7d3b09..00000000
--- a/Propellor/Types/Attr.hs
+++ /dev/null
@@ -1,48 +0,0 @@
-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