Syntax and typing start

1 files changed, 4 insertions, 4 deletions

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