diff options
| author | Joris | 2019-09-09 21:10:39 +0200 |
|---|---|---|
| committer | Joris | 2019-09-09 21:10:39 +0200 |
| commit | 69989fff0c5d18c069120081eb5cfcc6a9bf8c29 (patch) | |
| tree | 9b3a402b6b97f03ea01c059590dd3a8a16297c79 /src/lib/haskell/Parser/LeboncoinParser.hs | |
| parent | 88a2f0c22b523dd5246cefaeefd6c08bf9d6fba7 (diff) | |
| download | ad-listener-69989fff0c5d18c069120081eb5cfcc6a9bf8c29.tar.gz ad-listener-69989fff0c5d18c069120081eb5cfcc6a9bf8c29.tar.bz2 ad-listener-69989fff0c5d18c069120081eb5cfcc6a9bf8c29.zip | |
Update ouestfrance and seloger tests
Diffstat (limited to 'src/lib/haskell/Parser/LeboncoinParser.hs')
| -rw-r--r-- | src/lib/haskell/Parser/LeboncoinParser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lib/haskell/Parser/LeboncoinParser.hs b/src/lib/haskell/Parser/LeboncoinParser.hs index 99d8116..3e6775d 100644 --- a/src/lib/haskell/Parser/LeboncoinParser.hs +++ b/src/lib/haskell/Parser/LeboncoinParser.hs @@ -26,4 +26,4 @@ parseAd tags = do [] -> Nothing xs -> Just $ innerText xs url <- getTagAttribute "<a>" "href" tags - return (Ad name location price (T.concat ["https:", url])) + return (Ad name location price (T.concat ["https://www.leboncoin.fr", url])) |