From 83d99c84afcb95f07f5390cfe4b8bf0a74a4bcd1 Mon Sep 17 00:00:00 2001
From: Pagwin <dev@pagwin.xyz>
Date: Tue, 30 Dec 2025 21:07:17 -0500
Subject: [PATCH] fixed compilation error(s)

---
 src/Utilities/Javascript.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/Utilities/Javascript.hs b/src/Utilities/Javascript.hs
index ba57853..d3638f9 100644
--- a/src/Utilities/Javascript.hs
+++ b/src/Utilities/Javascript.hs
@@ -291,25 +291,25 @@ literal =
       char '`'
       contents <- many template_char
       char '`'
-      pure $ NoSub $ mconcat contents
+      pure $ NoSub $ fromText $ mconcat $ map toText $ contents
+    head_temp_frag :: Parser s m (TemplateFragment s)
     head_temp_frag = do
       char '`'
       contents <- many template_char
       string "${"
-      pure $ TemplateHead contents
+      pure $ TemplateHead $ fromText $ mconcat $ map toText $ contents
     mid_temp_frag = do
       char '}'
       contents <- many template_char
       string "${"
-      pure $ TemplateMiddle contents
+      pure $ TemplateMiddle $ fromText $ mconcat $ map toText $ contents
     tail_temp_frag = do
       char '}'
       contents <- many template_char
       char '`'
-      pure $ TemplateTail contents
-    template_char :: Parser s m [Char]
-    -- TODO: I fucked something up here
-    template_char = choice [try (string "$" <* (notFollowedBy $ char '{')), try (char '\\' *> ((try template_escape_seq) <|> not_escape_seq)), try ((optional $ char '\\') *> eol), source_char]
+      pure $ TemplateTail $ fromText $ mconcat $ map toText $ contents
+    template_char :: Parser s m s
+    template_char = fromText . toText <$> choice [try (string "$" <* (notFollowedBy $ char '{')), try (char '\\' *> ((try template_escape_seq) <|> not_escape_seq)), try ((optional $ char '\\') *> (eol)), source_char]
     source_char = error "TODO"
     template_escape_seq = error "TODO: TemplateEscapeSequence, prepend backslash"
     not_escape_seq = error "TODO: NotEscapeSequence, prepend backslash"