diff options
| author | Joris Guyonvarch | 2015-04-18 21:59:22 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-04-18 21:59:22 +0200 |
| commit | 389d979eb3eaa18beb8a6da9f4a03bdb6acc1722 (patch) | |
| tree | 9d475b868ad13162c0ecba42b2138058c2e2e68b /src/Model/Detail.hs | |
| parent | 86f9991deeb44a6cc81044e61a9ad3ee001c5ced (diff) | |
| download | ad-listener-389d979eb3eaa18beb8a6da9f4a03bdb6acc1722.tar.gz ad-listener-389d979eb3eaa18beb8a6da9f4a03bdb6acc1722.tar.bz2 ad-listener-389d979eb3eaa18beb8a6da9f4a03bdb6acc1722.zip | |
Parsing utag_list from a detail page and showing the keys that are given in the configuration file
Diffstat (limited to 'src/Model/Detail.hs')
| -rw-r--r-- | src/Model/Detail.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Model/Detail.hs b/src/Model/Detail.hs index a170ca6..c0e8d5f 100644 --- a/src/Model/Detail.hs +++ b/src/Model/Detail.hs @@ -3,10 +3,12 @@ module Model.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) |