diff options
author | Joris Guyonvarch | 2015-04-11 20:38:08 +0200 |
---|---|---|
committer | Joris Guyonvarch | 2015-04-11 20:38:08 +0200 |
commit | aafc45eb5eed3839a5210a7d48928d975df6a296 (patch) | |
tree | 8574205bdf967b7338e63bc77c2f1374e0843e67 /src/Parser/Detail.hs | |
parent | 4ddd6d1f6df2bab75d42b6d45b816e92e7173529 (diff) |
Handle a configuration file to save the url
Diffstat (limited to 'src/Parser/Detail.hs')
-rw-r--r-- | src/Parser/Detail.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Parser/Detail.hs b/src/Parser/Detail.hs index b787772..4144964 100644 --- a/src/Parser/Detail.hs +++ b/src/Parser/Detail.hs @@ -2,6 +2,7 @@ module Parser.Detail ( parseDetail ) where +import Data.Text (Text) import qualified Data.Text as T import Text.HTML.TagSoup @@ -10,7 +11,7 @@ import Model.Detail import Parser.Utils -parseDetail :: T.Text -> Detail +parseDetail :: Text -> Detail parseDetail page = let tags = parseTags page descriptionTags = getTagsBetween "<div itemprop=description>" "</div>" tags |