From 4ddd6d1f6df2bab75d42b6d45b816e92e7173529 Mon Sep 17 00:00:00 2001 From: Joris Guyonvarch Date: Sat, 11 Apr 2015 19:20:04 +0200 Subject: Fixing parsing errors, and use Text from now --- src/Model/Detail.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Model/Detail.hs') diff --git a/src/Model/Detail.hs b/src/Model/Detail.hs index f00a7eb..684a718 100644 --- a/src/Model/Detail.hs +++ b/src/Model/Detail.hs @@ -2,6 +2,8 @@ module Model.Detail ( Detail(..) ) where +import qualified Data.Text as T + data Detail = Detail - { description :: Maybe String + { description :: Maybe T.Text } deriving (Eq, Read, Show) -- cgit v1.2.3