printObject :: Object -> Doc
printObject obj = case obj of
    Object s -> pretty s
    ObjectLiteral l -> pretty l
printObject :: Object -> Doc
printObject obj = case obj of
    Object s -> pretty s
    ObjectLiteral l -> pretty l
printObject obj = case obj of
    Object s -> pretty s
    ObjectLiteral l -> pretty l