Use Text for html

byg/src/Evaluation/Function.hs

@@ -12,6 +12,12 @@ evalFunction f x = case (f, x) of
   (ConcatStrings, List _) ->
     String undefined
 
+  (AppendTexts, Tuple (Text _, Text _)) ->
+    Text undefined
+
+  (ConcatTexts, List _) ->
+    Text undefined
+
   (JoinPaths, Tuple (String _, String _)) ->
     String undefined
 
@@ -21,8 +27,11 @@ evalFunction f x = case (f, x) of
   (IsImageExtension, String _) ->
     Bool undefined
 
-  (ApplyTemplate, Tuple (Template _, String _)) ->
-    String undefined
+  (ApplyTemplate, Tuple (Template _, Text _)) ->
+    Text undefined
+
+  (ToText, String _) ->
+    Text undefined
 
   _ ->
     error "unexpected combination of function and argument type"

byg/src/Evaluation/FunctionIO.hs

@@ -15,7 +15,7 @@ evalFunctionIO f x = case (f, x) of
   (ConvertImage, Tuple (Tuple (String _, String _), ImageConversionSettings _)) ->
     pure $ Empty
 
-  (SaveFile, Tuple (String _, String _)) ->
+  (SaveFile, Tuple (Text _, String _)) ->
     pure $ Empty
 
   (CopyFile, Tuple (String _, String _)) ->
@@ -25,7 +25,7 @@ evalFunctionIO f x = case (f, x) of
     pure $ Empty
 
   (RunPandoc, String _) ->
-    pure $ String undefined
+    pure $ Text undefined
 
   _ ->
     error "unexpected combination of function and argument type"