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)