r7rs datum ast

2026-08-20 22:05:57 -06:00
1 changed files with 3 additions and 3 deletions
@@ -25,9 +25,9 @@ data DatumF a
 data Simple
  = SimpleBool Bool
  | SimpleNumber Scientific
-  | SimpleChar
-  | SimpleString
-  | SimpleSymbol
+  | SimpleChar Char
+  | SimpleString Text
+  | SimpleSymbol Text
  | SimpleBytevector ByteString
  deriving stock (Show, Eq, Data, Generic, Lift)
  deriving anyclass (NFData)