putType (DateAttribute _ fmt)   = unwordsP [putAsciiStr "date", showp fmt]
putType (DateAttribute _ fmt)   = unwordsP [putAsciiStr "date", showp fmt]
putType (DateAttribute _ fmt)   = unwordsP [putAsciiStr "date", showp fmt]