From 07b43649a9725ca6cf439847e9464d6c182b5640 Mon Sep 17 00:00:00 2001 From: nlitkowski Date: Wed, 7 Apr 2021 03:03:14 +0200 Subject: [PATCH] WIP --- app/ZborBielawa.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/ZborBielawa.hs b/app/ZborBielawa.hs index 3916085..c2463fb 100644 --- a/app/ZborBielawa.hs +++ b/app/ZborBielawa.hs @@ -16,7 +16,7 @@ import Debug.Trace getLinkAndText xpathCondition = proc doc -> do xpathTrees <- getXPathTrees xpathCondition -< doc href <- (getXPathTrees "//a" >>> getAttrValue "href") -< xpathTrees - txt <- (listA (deep isText >>> getText) >>> arr (intercalate " ")) -< xpathTrees + txt <- (deep isText >>> getText) -< xpathTrees returnA -< traceShowId (href, txt)