s444517/twilight-library
1
0
Fork 0
forked from filipg/twilight-library
Code Issues Pull Requests Projects Releases Wiki Activity

robot ver 1_1

Browse Source
This commit is contained in:
Kamila 2022-03-31 17:12:47 +02:00
parent c5061e5c32
commit 0c20f13b11
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/my_robot.hs
View File

@ -28,12 +28,12 @@ toShadowItem (url, articleTitle) =
findText url = findText url =
case url =~~ "[0-9]{4}.*" :: Maybe String of case url =~~ "[0-9]{4}.*" :: Maybe String of
Just year -> replace "%20" " " (replace ".pdf" "" year) Just year -> replace "%C5%82" "l" (replace "%20" " " (replace ".pdf" "" year))
otherwise -> error $ "unexpected url: " ++ url otherwise -> error $ "unexpected url: " ++ url
getDate url = getDate url =
case url =~~ "[0-9]{4}" :: Maybe String of case url =~~ "[0-9]{4}[-.][0-9]{2}[-.][0-9]{2}|[0-9]{4}" :: Maybe String of
Just year -> replace "." "-" year Just year -> replace "." "-" year
otherwise -> error $ "unexpected url: " ++ url otherwise -> error $ "unexpected url: " ++ url