From f6a4fbe5c5c3e06b7c9515c479e14dd445efe2ae Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 14 Aug 2022 08:08:41 +0100
Subject: Slightly better error message

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

(limited to 'src')

diff --git a/src/Compiler.hs b/src/Compiler.hs
index c8889b6..d39a184 100644
--- a/src/Compiler.hs
+++ b/src/Compiler.hs
@@ -57,7 +57,7 @@ compile x = do
         p@(Right (Just (A.FuncType _ _))) -> return $ p
         Right _ -> do
           (ev, errs) <- get
-          put (ev, Error ("value is not callable") pos : errs)
+          put (ev, Error ("non callable value in function call") pos : errs)
           return $ Right Nothing
         Left r -> return $ Right Nothing
     (A.Return value pos) -> case value of
-- 
cgit v1.2.3