forked from filipg/twilight-library
WIP
This commit is contained in:
parent
5c7345957c
commit
ea12e8ac21
@ -12,8 +12,6 @@ import Data.List.Utils (replace)
|
||||
import Text.Printf
|
||||
|
||||
import Control.Lens.Regex.Text
|
||||
import Control.Lens.Regex
|
||||
import Control.Lens
|
||||
|
||||
getLinkAndText xpathCondition = proc doc -> do
|
||||
xpathTrees <- getXPathTrees xpathCondition -< doc
|
||||
@ -47,10 +45,11 @@ toShadowItem (((url, releaseTitle), collectionTitle), categoryTitle) =
|
||||
finalUrl = url
|
||||
}
|
||||
where title = categoryTitle ++ (" " ++ collectionTitle)
|
||||
date = getDate $ releaseTitle
|
||||
date = releaseTitle
|
||||
-- date = getDate $ releaseTitle
|
||||
|
||||
|
||||
getDate txt = txt ^? [regex|19[0-9][0-9]|20[0-9][0-9]|] . match
|
||||
-- getDate txt = txt ^? [regex|19[0-9][0-9]|20[0-9][0-9]|] . match
|
||||
|
||||
main = do
|
||||
let start = "http://zborbielawa.pl/archiwum/"
|
||||
|
Loading…
Reference in New Issue
Block a user