Zaktualizuj 'app/czasopisma.hs'

This commit is contained in:
Szymon Parafiński 2022-04-17 23:31:51 +02:00
parent cb52905362
commit 268eeaa44c

View File

@ -37,8 +37,8 @@ getDate url =
main = do main = do
let start = "https://www.czasopisma.centralnabibliotekapttk.pl" let start = "https://www.czasopisma.centralnabibliotekapttk.pl"
let shadowLibrary = ShadowLibrary {logoUrl=Nothing, let shadowLibrary = ShadowLibrary {logoUrl=Nothing,
lname="Chelmek", lname="Czasopisma PTTK",
abbrev="Chelmek", abbrev="czasopisma",
lLevel=0, lLevel=0,
webpage=start} webpage=start}
extractItemsStartingFromUrl shadowLibrary start (extractRecords >>> arr toShadowItem) extractItemsStartingFromUrl shadowLibrary start (extractRecords >>> arr toShadowItem)