Fix type

X-R-G-B · Jan 3, 2024 · cac38e5 · cac38e5
1 parent e15385b
commit cac38e5
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/lvtc/src/AST.hs b/lvtc/src/AST.hs
@@ -6,8 +6,7 @@
 -}
 
 module AST
-  (
-    Type
+  ( Type
   , Value
   , Var
   , FuncCall
@@ -19,9 +18,9 @@ module AST
   , Condition
   ) where
 
-getType :: Type -> String
-getType Int32 = "Int32"
-getType _ = Nothing
+import Data.Int (Int32)
+
+type Symbol = String
 
 type Type = String