From 69989fff0c5d18c069120081eb5cfcc6a9bf8c29 Mon Sep 17 00:00:00 2001 From: Joris Date: Mon, 9 Sep 2019 21:10:39 +0200 Subject: Update ouestfrance and seloger tests --- src/lib/haskell/Parser/LeboncoinParser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/lib/haskell/Parser') 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 "" "href" tags - return (Ad name location price (T.concat ["https:", url])) + return (Ad name location price (T.concat ["https://www.leboncoin.fr", url])) -- cgit v1.2.3