src/Parser/Detail.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

module Parser.Detail
  ( parseDetail
  ) where

import Text.HTML.TagSoup

import Model.Detail

import Parser.Utils

parseDetail :: String -> Detail
parseDetail page =
  let tags = parseTags page
      description = getTagText "<div class=content>" tags
  in  Detail { description = description }