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 "<a>" "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