diff options
| -rw-r--r-- | Propellor/Types/Attr.hs | 8 |
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 [] |