putType :: Type -> Put
putType (StringAttribute _)     = putAsciiStr "string"
putType :: Type -> Put
putType (StringAttribute _)     = putAsciiStr "string"
putType (StringAttribute _)     = putAsciiStr "string"