diff --git a/src/soup.ml b/src/soup.ml index d7cb94e..bc03577 100644 --- a/src/soup.ml +++ b/src/soup.ml @@ -100,7 +100,10 @@ let from_signals' ~map_attributes signals = ~element:(fun name attributes children -> let attributes = attributes - |> List.map (fun ((_, n), v) -> n, v) + |> List.map (fun ((ns, n), v) -> + match ns with + | "" -> (n, v) + | _ -> (ns ^ ":" ^ n, v)) |> map_attributes name in create_element (snd name) attributes children) s) diff --git a/test/pages/list.html b/test/pages/list.html index 2e63bf7..26aea91 100644 --- a/test/pages/list.html +++ b/test/pages/list.html @@ -1,5 +1,5 @@ - +