From e4458b5780b6468f3af27e175c0e932373033b7a Mon Sep 17 00:00:00 2001 From: nlitkowski Date: Wed, 7 Apr 2021 02:39:02 +0200 Subject: [PATCH] WIP --- app/ZborBielawa.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app/ZborBielawa.hs b/app/ZborBielawa.hs index 999803c..ffa5047 100644 --- a/app/ZborBielawa.hs +++ b/app/ZborBielawa.hs @@ -33,8 +33,8 @@ getLinkAndText xpathCondition = proc doc -> do extractNestedLinksWithText2 xpathCondition = proc x -> do doc <- downloadDocument -< x thisValue <- this -< x - ((a,b),c) <- getLinkAndText xpathCondition -< doc - uriFixed <- expandURIFixed -< (a,c) + (a,b) <- getLinkAndText xpathCondition -< doc + uriFixed <- expandURIFixed -< (a,thisValue) returnA -< (uriFixed, b)