From 9299f07f8e2711fbc8808dde99b327c86ef12c41 Mon Sep 17 00:00:00 2001
From: Pagwin <dev@pagwin.xyz>
Date: Mon, 29 Dec 2025 12:25:39 -0500
Subject: [PATCH] started working on displaying tokens

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

diff --git a/src/Utilities/Javascript.hs b/src/Utilities/Javascript.hs
index e2ac161..7345353 100644
--- a/src/Utilities/Javascript.hs
+++ b/src/Utilities/Javascript.hs
@@ -36,6 +36,11 @@ toTokens :: (Characters s) => String -> s -> Either (ParseErrorBundle s Void) [T
 toTokens = parse tokens
 
 displayToken :: (ToText s) => Token s -> s
+displayToken WhiteSpace = fromText " "
+displayToken (Identifier i) = i
+displayToken (HashBangComment text) = fromText ("#!" <> toText text)
+displayToken (SingleLineComment text) = fromText ("//" <> toText text)
+displayToken (MultiLineComment text) = fromText ("/*" <> toText text <> "*/")
 displayToken _ = error "TODO"
 
 -- yeah I guess I'm making a javascript tokenizer
@@ -44,9 +49,9 @@ displayToken _ = error "TODO"
 data Token s
   = WhiteSpace
   | LineTerminator
-  | SingleLineComment
-  | MultiLineComment
-  | HashBangComment
+  | SingleLineComment s
+  | MultiLineComment s
+  | HashBangComment s
   | Identifier s
   | PrivateIdentifier s
   | ReservedWord Reserved
@@ -84,20 +89,20 @@ token =
 hashbang_comment :: (Logger m, Characters s) => Parser s m (Token s)
 hashbang_comment = do
   string "#!"
-  many ((notFollowedBy newline) *> anySingle)
-  pure HashBangComment
+  text <- many ((notFollowedBy newline) *> anySingle)
+  pure $ HashBangComment $ fromString text
 
 comment :: (Logger m, Characters s) => Parser s m (Token s)
 comment = (try singleline_com) <|> multiline_com
   where
     singleline_com = do
       string "//"
-      many ((notFollowedBy newline) *> anySingle)
-      pure SingleLineComment
+      text <- many ((notFollowedBy newline) *> anySingle)
+      pure $ SingleLineComment $ fromString text
     multiline_com = do
       string "/*"
-      many ((notFollowedBy $ string "*/") *> anySingle)
-      pure MultiLineComment
+      text <- many ((notFollowedBy $ string "*/") *> anySingle)
+      pure $ MultiLineComment $ fromString text
 
 reserved_word :: (Logger m, Characters s) => Parser s m (Token s)
 reserved_word = choice [try await, try break, try case_, try catch_, try class_, try const, try continue, try debugger, try default_, try delete, try do_, try else_, try enum, try export, try extends, try false, try finally_, try for_, try function, try if_, try import_, try in_, try instanceof, try new, try null, try return, try super, try switch, try this, try throw_, try true, try try_, try typeof, try var, try void, try while, try with, yield]