From fa4d7737f2a738fd82e62b84c8849bf67d12ceec Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 14 Aug 2022 17:49:02 +0100
Subject: Case removed by mistake

---
 src/Compiler.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Compiler.hs')

diff --git a/src/Compiler.hs b/src/Compiler.hs
index f86c973..65f635b 100644
--- a/src/Compiler.hs
+++ b/src/Compiler.hs
@@ -114,6 +114,7 @@ compile x = do
           case r of
             Just err -> addError $ Error err pos
             Nothing -> return $ Right rtyp
+        Right _ -> addError $ Error ("non callable value in function call") pos
         _ -> return $ Right Nothing
     (A.Return value pos) -> do
       (ev, errs) <- get
-- 
cgit v1.2.3