let
remove_attribute node name =
try
node >>> set name (inject
Nil
)
with
_
->
failwith
"remove"