gistfile1.hs

-- | Little helper to apply default service namespace to a node and it's descendants.
--   This removes the necessity to flood your code with {http://vendor.silly.web/Service.spamx} in element names.
flowNS :: Maybe Text -> Node -> Node
flowNS ns (NodeElement (Element (Name local Nothing prefix) as cs)) = NodeElement $ Element (Name local ns prefix) as $ map (flowNS ns) cs  -- update element ns and continue
flowNS ns (NodeElement (Element name@(Name _ ns' _) as cs))         = NodeElement $ Element name as                   $ map (flowNS ns') cs -- switch to new namespace and continue
flowNS ns node = node -- ignore non-element nodes