src/Parser/Detail.hs


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

module Parser.Detail
  ( parseDetail
  ) where

import Text.HTML.TagSoup

import Model.Detail

import Parser.Utils

parseDetail :: [Tag String] -> Detail
parseDetail tags =
  let description = getTagText "<div class=content>" tags
  in  Detail { description = description }