diff options
Diffstat (limited to 'src/Model')
-rw-r--r-- | src/Model/Detail.hs | 4 | ||||
-rw-r--r-- | src/Model/Resume.hs | 5 | ||||
-rw-r--r-- | src/Model/URL.hs | 4 |
3 files changed, 8 insertions, 5 deletions
diff --git a/src/Model/Detail.hs b/src/Model/Detail.hs index 684a718..952cb7a 100644 --- a/src/Model/Detail.hs +++ b/src/Model/Detail.hs @@ -2,8 +2,8 @@ module Model.Detail ( Detail(..) ) where -import qualified Data.Text as T +import Data.Text data Detail = Detail - { description :: Maybe T.Text + { description :: Maybe Text } deriving (Eq, Read, Show) 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) diff --git a/src/Model/URL.hs b/src/Model/URL.hs index 91cf22a..2114113 100644 --- a/src/Model/URL.hs +++ b/src/Model/URL.hs @@ -2,4 +2,6 @@ module Model.URL ( URL ) where -type URL = String +import Data.Text + +type URL = Text |