From 724f354b25275b59546c41201178380eb9369037 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 11 Apr 2014 00:36:33 -0400 Subject: show instance --- Propellor/Types/Attr.hs | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'Propellor/Types') 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 [] -- cgit v1.2.3