From 6af1f804f0def7f48ae2d726951b13c895b85931 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Thu, 3 Mar 2022 21:40:07 +0100
Subject: Syntax and typing start
---
src/Fun/Tree.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'src/Fun/Tree.hs')
diff --git a/src/Fun/Tree.hs b/src/Fun/Tree.hs
index 354677d..63ca0b5 100644
--- a/src/Fun/Tree.hs
+++ b/src/Fun/Tree.hs
@@ -1,14 +1,14 @@
module Fun.Tree where
+import Fun.Typer
+
data Tree = Tree [Program]
deriving Show
data Program = Program [Block]
deriving Show
-data Block = Block FunctionBlock -- | Block DataBlock ...
- deriving Show
-data FunctionBlock = FunctionBlock FunctionDeclaration [FunctionDefinition]
+data Block = FunctionBlock FunctionDeclaration [FunctionDefinition] -- | DataBlock .. TODO
deriving Show
data Visibility = PublicVisibility | PrivateVisibility
@@ -16,7 +16,7 @@ data Visibility = PublicVisibility | PrivateVisibility
data FunctionDeclaration = FunctionDeclaration String
Visibility
- [String]
+ [Type]
[FunctionFlag]
deriving Show
data FunctionFlag = FunctionInline | FunctionDeprecated | FunctionUnknown
--
cgit v1.2.3