diff options
| author | Joris Guyonvarch | 2015-04-11 20:38:08 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-04-11 20:38:08 +0200 |
| commit | aafc45eb5eed3839a5210a7d48928d975df6a296 (patch) | |
| tree | 8574205bdf967b7338e63bc77c2f1374e0843e67 /src/Model/Resume.hs | |
| parent | 4ddd6d1f6df2bab75d42b6d45b816e92e7173529 (diff) | |
| download | ad-listener-aafc45eb5eed3839a5210a7d48928d975df6a296.tar.gz ad-listener-aafc45eb5eed3839a5210a7d48928d975df6a296.tar.bz2 ad-listener-aafc45eb5eed3839a5210a7d48928d975df6a296.zip | |
Handle a configuration file to save the url
Diffstat (limited to 'src/Model/Resume.hs')
| -rw-r--r-- | src/Model/Resume.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Model/Resume.hs b/src/Model/Resume.hs index 9d966df..3d307f2 100644 --- a/src/Model/Resume.hs +++ b/src/Model/Resume.hs @@ -5,13 +5,14 @@ module Model.Resume ) where import Data.List ((\\)) +import Data.Text (Text) import qualified Data.Text as T import Model.URL data Resume = Resume - { name :: T.Text - , price :: Maybe T.Text + { name :: Text + , price :: Maybe Text , url :: URL } deriving (Eq, Read, Show) |