Parsing utag_list from a detail page and showing the keys that are given in the configuration file

2 files changed, 15 insertions, 0 deletions

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)