              {:url                 sampled
               :novelty             (novelty diff)
               :hrefs-table         in-host-map
+              :text-table          xpaths-text'
               :in-host-hrefs-table in-host-map
               :update              (update original-hrefs current-hrefs)}))))
      sampled-uris)))

                                   [xpath (set (map first links-text))])
                                 xpaths-hrefs-text))

         xpaths                (map first xpaths-hrefs)

         ;; WTF?

                                (fn [[xpath links-text]]
                                  [xpath (set (map first links-text))])
                                xpaths-hrefs-tks))

             xpaths-text'     (into
                               {}
                               (map
                                (fn [[xpath links-text]]
                                  [xpath (set (map second links-text))])
                                xpaths-hrefs-tks))
             
             in-host-map      (in-host-xpaths-hrefs
                               xpaths-hrefs' (uri/host sampled))
