diff options
| author | Joris | 2018-06-18 11:31:22 +0200 |
|---|---|---|
| committer | Joris | 2018-06-18 11:31:22 +0200 |
| commit | d14e302b9acf5164e04d8dfcd4dbd0aa1da48438 (patch) | |
| tree | 6a3d343869acac65d4a11aa31fcae73a44f575a8 /src/parser/haskell/Parser/LeboncoinParser.hs | |
| parent | 0a4d3c8f12dc5797a919a00b6bcaf759947687cc (diff) | |
| download | ad-listener-d14e302b9acf5164e04d8dfcd4dbd0aa1da48438.tar.gz ad-listener-d14e302b9acf5164e04d8dfcd4dbd0aa1da48438.tar.bz2 ad-listener-d14e302b9acf5164e04d8dfcd4dbd0aa1da48438.zip | |
Use default OverloadedStrings extension
Diffstat (limited to 'src/parser/haskell/Parser/LeboncoinParser.hs')
| -rw-r--r-- | src/parser/haskell/Parser/LeboncoinParser.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/parser/haskell/Parser/LeboncoinParser.hs b/src/parser/haskell/Parser/LeboncoinParser.hs index 48eb80f..77213cb 100644 --- a/src/parser/haskell/Parser/LeboncoinParser.hs +++ b/src/parser/haskell/Parser/LeboncoinParser.hs @@ -12,13 +12,13 @@ import Parser.Utils parse :: Text -> [Ad] parse page = - catMaybes . fmap parseAd $ partitions (~== "<a>") tags + catMaybes . fmap parseAd $ partitions (~== (T.unpack "<a>")) tags where tags = getTagsBetween "<li itemtype=http://schema.org/Offer>" "<div class=information-immo_content>" (parseTags page) parseAd :: [Tag Text] -> Maybe Ad parseAd tags = do name <- getTagTextAfter "<h2 class=item_title>" tags - location <- getTagAttribute "<meta itemprop=address>" (T.pack "content") tags + location <- getTagAttribute "<meta itemprop=address>" "content" tags let price = getTagTextAfter "<h3 class=item_price>" tags - url <- getTagAttribute "<a>" (T.pack "href") tags - return (Ad name location price (T.concat [T.pack "https:", url])) + url <- getTagAttribute "<a>" "href" tags + return (Ad name location price (T.concat ["https:", url])) |