diff options
Diffstat (limited to 'src/Model')
-rw-r--r-- | src/Model/Config.hs | 13 | ||||
-rw-r--r-- | src/Model/Mail.hs | 14 | ||||
-rw-r--r-- | src/Model/Resume.hs | 3 |
3 files changed, 15 insertions, 15 deletions
diff --git a/src/Model/Config.hs b/src/Model/Config.hs deleted file mode 100644 index 42b390e..0000000 --- a/src/Model/Config.hs +++ /dev/null @@ -1,13 +0,0 @@ -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/Mail.hs b/src/Model/Mail.hs new file mode 100644 index 0000000..20addee --- /dev/null +++ b/src/Model/Mail.hs @@ -0,0 +1,14 @@ +module Model.Mail + ( Mail(..) + ) where + +import Data.Text (Text) +import qualified Data.Text.Lazy as LT + +data Mail = Mail + { from :: Text + , to :: [Text] + , subject :: Text + , plainBody :: LT.Text + , htmlBody :: LT.Text + } deriving (Eq, Show) diff --git a/src/Model/Resume.hs b/src/Model/Resume.hs index 46d07a1..3e3cd82 100644 --- a/src/Model/Resume.hs +++ b/src/Model/Resume.hs @@ -6,9 +6,8 @@ module Model.Resume import Data.List ((\\)) import Data.Text (Text) -import qualified Data.Text as T -import Model.URL +import Model.URL (URL) data Resume = Resume { name :: Text |