diff options
| author | Joris | 2018-06-19 13:47:24 +0200 |
|---|---|---|
| committer | Joris | 2018-06-19 13:47:24 +0200 |
| commit | 5d921c9a2b0a7a8f1a1bb5642cbefa516cbbe4cc (patch) | |
| tree | d9671a8b8f29ee6c8743f9fa1ab3d701bab8dcce /src/parser/haskell/Parser/SeLogerParser.hs | |
| parent | 318292532a877c308403c45795d229fad659d900 (diff) | |
| download | ad-listener-5d921c9a2b0a7a8f1a1bb5642cbefa516cbbe4cc.tar.gz ad-listener-5d921c9a2b0a7a8f1a1bb5642cbefa516cbbe4cc.tar.bz2 ad-listener-5d921c9a2b0a7a8f1a1bb5642cbefa516cbbe4cc.zip | |
Fix seLoger url
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) |