cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

show instance

This commit is contained in:
Joey Hess 2014-04-11 00:36:33 -04:00
parent 29ae27af3c
commit 724f354b25
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Propellor/Types/Attr.hs
View File

@ -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 []