diff --git a/byg/src/SiteGenerator.hs b/byg/src/SiteGenerator.hs index 01dcfa6..7c54666 100644 --- a/byg/src/SiteGenerator.hs +++ b/byg/src/SiteGenerator.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE OverloadedStrings #-} module SiteGenerator (generateSite) where import Types diff --git a/byg/src/Types/Value.hs b/byg/src/Types/Value.hs index 40ece10..8b71b43 100644 --- a/byg/src/Types/Value.hs +++ b/byg/src/Types/Value.hs @@ -5,9 +5,11 @@ module Types.Value import Types.Values +import Data.Text (Text) import Language.Haskell.TH.Syntax (Lift) data Value = String String + | Text Text | Bool Bool | ImageConversionSettings ImageConversionSettings | Template Template @@ -22,5 +24,8 @@ class Valuable a where instance Valuable String where toValue = String +instance Valuable Text where + toValue = Text + instance Valuable ImageConversionSettings where toValue = ImageConversionSettings