stow fqdn sdom acc = M.insertWith merge fqdn' sdom' acc
where
(fqdn', sdom') = nest (filter (/= "") (splitOnDots fqdn), sdom)
stow fqdn sdom acc = M.insertWith merge fqdn' sdom' acc
where
(fqdn', sdom') = nest (filter (/= "") (splitOnDots fqdn), sdom)