[FIX]Hy Odoo : from Hy v0.25.0 dfor adapted

This commit is contained in:
Fabien BOURGEOIS 2022-11-09 09:35:49 +01:00
parent b75fded6f5
commit 40f6c88fee
2 changed files with 2 additions and 2 deletions

View File

@ -8,7 +8,7 @@
'name': 'Hy Odoo', 'name': 'Hy Odoo',
'summary': 'Hy Odoo', 'summary': 'Hy Odoo',
'description': """ Hy functions and macros for Odoo """, 'description': """ Hy functions and macros for Odoo """,
'version': '16.0.0.8.8', 'version': '16.0.0.8.9',
'category': 'Hy', 'category': 'Hy',
'author': 'Fabien Bourgeois', 'author': 'Fabien Bourgeois',
'license': 'Other OSI approved licence', 'license': 'Other OSI approved licence',

View File

@ -33,7 +33,7 @@
(cond (instance? str children) (setv (. parent text) children) (cond (instance? str children) (setv (. parent text) children)
(instance? XMLDictElement children) (instance? XMLDictElement children)
(do (do
(setv attrs (dfor [k v] (.items (. children attrs)) [(str k) (str v)])) (setv attrs (dfor [k v] (.items (. children attrs)) (str k) (str v)))
(setv new-parent (.SubElement ET parent (. children tag) attrs) (setv new-parent (.SubElement ET parent (. children tag) attrs)
subchildren (. children children)) subchildren (. children children))
(when subchildren) (xmlchild new-parent subchildren)) (when subchildren) (xmlchild new-parent subchildren))