From 56c80faeff9661be343f45766cca6fd15dd4ed48 Mon Sep 17 00:00:00 2001
From: Samuel Hammersberg <samuel.hammersberg@gmail.com>
Date: Mon, 8 May 2023 22:07:35 +0200
Subject: [PATCH] Fixed a typo

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

diff --git a/src/Codegen/Emits.hs b/src/Codegen/Emits.hs
index 6aabb72..148935c 100644
--- a/src/Codegen/Emits.hs
+++ b/src/Codegen/Emits.hs
@@ -395,7 +395,7 @@ emitApp rt e1 e2 = do
 
             pure $ Call FastCC (type2LlvmType rt) visibility name args
     
-    call <- preludeFuns (fst (head typ)) call name (snd (head args)) (snd (args !! 1))
+    call <- preludeFuns call name (snd (head args)) (snd (args !! 1))
 
     emit $ Comment $ show (type2LlvmType rt)
     emit $ SetVariable vs call