src/Model/Detail.hs


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

module Model.Detail
  ( Detail(..)
  ) where

import Data.Text
import Data.Map (Map)

import Model.URL

data Detail = Detail
  { description :: Maybe Text
  , images :: [URL]
  , properties :: Map Text Text
  } deriving (Eq, Read, Show)