Handle a configuration file to save the url

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