summaryrefslogtreecommitdiff
path: root/Propellor/Types
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor/Types')
-rw-r--r--Propellor/Types/Attr.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/Propellor/Types/Attr.hs b/Propellor/Types/Attr.hs
index 70161725..9e8058fe 100644
--- a/Propellor/Types/Attr.hs
+++ b/Propellor/Types/Attr.hs
@@ -21,6 +21,14 @@ instance Eq Attr where
in simpl x == simpl y
]
+instance Show Attr where
+ show a = unlines
+ [ "hostname " ++ _hostname a
+ , "cnames " ++ show (_cnames a)
+ , "docker image " ++ show (_dockerImage a)
+ , "docker run params " ++ show (map (\a -> a "") (_dockerRunParams a))
+ ]
+
newAttr :: HostName -> Attr
newAttr hn = Attr hn S.empty Nothing []