diff options
Diffstat (limited to 'src/Model')
-rw-r--r-- | src/Model/Config.hs | 13 | ||||
-rw-r--r-- | src/Model/Detail.hs | 2 |
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) |