From d14e302b9acf5164e04d8dfcd4dbd0aa1da48438 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 18 Jun 2018 11:31:22 +0200
Subject: Use default OverloadedStrings extension

---
 src/parser/haskell/Parser/LeboncoinParser.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/parser/haskell/Parser/LeboncoinParser.hs')

diff --git a/src/parser/haskell/Parser/LeboncoinParser.hs b/src/parser/haskell/Parser/LeboncoinParser.hs
index 48eb80f..77213cb 100644
--- a/src/parser/haskell/Parser/LeboncoinParser.hs
+++ b/src/parser/haskell/Parser/LeboncoinParser.hs
@@ -12,13 +12,13 @@ import           Parser.Utils
 
 parse :: Text -> [Ad]
 parse page =
-  catMaybes . fmap parseAd $ partitions (~== "<a>") tags
+  catMaybes . fmap parseAd $ partitions (~== (T.unpack "<a>")) tags
   where tags = getTagsBetween "<li itemtype=http://schema.org/Offer>" "<div class=information-immo_content>" (parseTags page)
 
 parseAd :: [Tag Text] -> Maybe Ad
 parseAd tags = do
   name <- getTagTextAfter "<h2 class=item_title>" tags
-  location <- getTagAttribute "<meta itemprop=address>" (T.pack "content") tags
+  location <- getTagAttribute "<meta itemprop=address>" "content" tags
   let price = getTagTextAfter "<h3 class=item_price>" tags
-  url <- getTagAttribute "<a>" (T.pack "href") tags
-  return (Ad name location price (T.concat [T.pack "https:", url]))
+  url <- getTagAttribute "<a>" "href" tags
+  return (Ad name location price (T.concat ["https:", url]))
-- 
cgit v1.2.3