From 389d979eb3eaa18beb8a6da9f4a03bdb6acc1722 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 18 Apr 2015 21:59:22 +0200
Subject: Parsing utag_list from a detail page and showing the keys that are
 given in the configuration file

---
 src/Model/Detail.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Model/Detail.hs')

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)
-- 
cgit v1.2.3