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/Config.hs | 13 +++++++++++++
 src/Model/Detail.hs |  2 ++
 2 files changed, 15 insertions(+)
 create mode 100644 src/Model/Config.hs

(limited to 'src/Model')

diff --git a/src/Model/Config.hs b/src/Model/Config.hs
new file mode 100644
index 0000000..42b390e
--- /dev/null
+++ b/src/Model/Config.hs
@@ -0,0 +1,13 @@
+module Model.Config
+  ( Config(..)
+  ) where
+
+import Data.Text
+
+import Model.URL
+
+data Config = Config
+  { url :: URL
+  , mailTo :: [Text]
+  , properties :: [Text]
+  } deriving (Eq, Read, Show)
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