show instance
This commit is contained in:
parent
29ae27af3c
commit
724f354b25
|
@ -21,6 +21,14 @@ instance Eq Attr where
|
||||||
in simpl x == simpl y
|
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 :: HostName -> Attr
|
||||||
newAttr hn = Attr hn S.empty Nothing []
|
newAttr hn = Attr hn S.empty Nothing []
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue