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",