[FIX]Hy Odoo : from Hy v0.25.0 dfor adapted
This commit is contained in:
parent
b75fded6f5
commit
40f6c88fee
@ -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',
|
||||||
|
@ -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))
|
||||||
|
Loading…
Reference in New Issue
Block a user