From aafc45eb5eed3839a5210a7d48928d975df6a296 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sat, 11 Apr 2015 20:38:08 +0200
Subject: Handle a configuration file to save the url

---
 src/Model/Detail.hs | 4 ++--
 src/Model/Resume.hs | 5 +++--
 src/Model/URL.hs    | 4 +++-
 3 files changed, 8 insertions(+), 5 deletions(-)

(limited to 'src/Model')

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
-- 
cgit v1.2.3