diff options
Diffstat (limited to 'src/parser/haskell/Parser/SeLogerParser.hs')
| -rw-r--r-- | src/parser/haskell/Parser/SeLogerParser.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |