From d35c818d4c6a1b927c5cf7d90437897fa6f3bc35 Mon Sep 17 00:00:00 2001 From: AdamOsiowy123 Date: Mon, 11 Apr 2022 10:51:42 +0200 Subject: [PATCH] extend toShadowItem method with 'size' parameter --- app/miastobierun.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app/miastobierun.hs b/app/miastobierun.hs index cea4e26..58cbe04 100644 --- a/app/miastobierun.hs +++ b/app/miastobierun.hs @@ -29,8 +29,8 @@ extractCustomLinks xpathCondition1 xpathCondition2 xpathCondition3= (downloadDoc extractRecords = extractCustomLinks "//tr[@class=''] | //tr[@class='_a']" "//td[@cell-header='Nazwa pliku']/a" "//td[@class='size']" --extractRecords = extractCustomLinks "//td[@cell-header='Nazwa pliku']/a" -toShadowItem :: (String, String) -> ShadowItem -toShadowItem (url, articleTitle) = +toShadowItem :: (String, String, String) -> ShadowItem +toShadowItem (url, size, articleTitle) = (defaultShadowItem url title) { originalDate = Just date, itype = "periodical",