From 13b00d16f1bec54002897b27fa1b78f4da281160 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sat, 5 Mar 2022 22:42:27 +0100
Subject: Better function call parsing

---
 src/Fun/Generator.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Fun/Generator.hs')

diff --git a/src/Fun/Generator.hs b/src/Fun/Generator.hs
index 17f47e3..a3c2728 100644
--- a/src/Fun/Generator.hs
+++ b/src/Fun/Generator.hs
@@ -8,6 +8,6 @@ import           Fun.Typer
 data GenerateError = GenerateError String
 
 generateAsm :: Tree -> Either GenerateError String
--- generateAsm (Tree t) = Right $ show t
-generateAsm t =
-  Left $ GenerateError $ show $ getFunction t "_start" [InternalType "_void"]
+generateAsm (Tree t) = Right $ show t
+-- generateAsm t =
+--   Left $ GenerateError $ show $ getFunction t "_start" [InternalType "_void"]
-- 
cgit v1.2.3