X-Git-Url: http://www.average.org/gitweb/?p=pdns-pipe-nmc.git;a=blobdiff_plain;f=NmcTransform.hs;h=23244a554aa9c25803cbf18b473275b29c7526bb;hp=c461274acdae54ab4eb091f2c3cc9f35bd8ee737;hb=92504303416dfc46f1a4e4ed45ddd3203919cf8f;hpb=851c71d42654a1620ea98d2dfe751d2e7fbc961f

diff --git a/NmcTransform.hs b/NmcTransform.hs
index c461274..23244a5 100644
--- a/NmcTransform.hs
+++ b/NmcTransform.hs
@@ -75,7 +75,10 @@ mergeSelf base =
 
 -- | transfer some elements of `base` into `sub`, notably TLSA
 propagate :: NmcDom -> NmcDom -> NmcDom
-propagate base sub = sub -- FIXME implement it
+propagate base sub = sub `merge` (pickglobals base)
+  where -- FIXME must do this on the map elements, not on the top level
+    pickglobals dom = def { domTlsa = fmap pickforcedtls (domTlsa dom) }
+    pickforcedtls = filter (\x -> tlsIncSubdoms x)
  
 -- | Presence of some elements require removal of some others
 normalizeDom :: NmcDom -> NmcDom