From 28dff65744f89de563ae41ba717d60fc7e300f29 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 14 Aug 2022 17:46:17 +0100
Subject: Missing case

Also removed unused as-pattern.
---
 src/Compiler.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Compiler.hs b/src/Compiler.hs
index 602490e..f86c973 100644
--- a/src/Compiler.hs
+++ b/src/Compiler.hs
@@ -109,11 +109,12 @@ compile x = do
     (A.Call ident args pos) -> do
       r <- compile ident
       case r of
-        p@(Right (Just (A.FuncType params rtyp))) -> do
+        Right (Just (A.FuncType params rtyp)) -> do
           r <- typecheckCall args params
           case r of
             Just err -> addError $ Error err pos
             Nothing -> return $ Right rtyp
+        _ -> return $ Right Nothing
     (A.Return value pos) -> do
       (ev, errs) <- get
       case getSyml ev "$fn$" of
-- 
cgit v1.2.3