From 5d921c9a2b0a7a8f1a1bb5642cbefa516cbbe4cc Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 19 Jun 2018 13:47:24 +0200
Subject: Fix seLoger url

---
 src/parser/haskell/Parser/SeLogerParser.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/parser/haskell/Parser')

diff --git a/src/parser/haskell/Parser/SeLogerParser.hs b/src/parser/haskell/Parser/SeLogerParser.hs
index dc2a5c2..b073862 100644
--- a/src/parser/haskell/Parser/SeLogerParser.hs
+++ b/src/parser/haskell/Parser/SeLogerParser.hs
@@ -21,4 +21,4 @@ parseAd tags = do
   location <- getTagTextAfter "<div class=c-pa-city>" tags
   let price = getTagTextAfter "<span class=c-pa-cprice>" tags
   url <- getTagAttribute "<a>" "href" tags
-  return (Ad name location price (T.concat ["https:", url]))
+  return (Ad name location price url)
-- 
cgit v1.2.3