Add Text support

byg/src/SiteGenerator.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE OverloadedStrings #-}
 module SiteGenerator (generateSite) where
 
 import Types

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