Compile: special-case to a single kernel functionHEADmaster

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Compile.hs b/src/Compile.hs
index cd10831..9ed5a27 100644
--- a/src/Compile.hs
+++ b/src/Compile.hs
@@ -77,7 +77,7 @@ compile = \env expr -> do
   let (source, offsets) = compileToString codeID env expr
   when debugPrintAST $ hPutStrLn stderr $ "Compiled AST: <<<\n" ++ ppExpr env expr ++ "\n>>>"
   when debugCSource $ hPutStrLn stderr $ "Generated C source: <<<\n\x1B[2m" ++ lineNumbers source ++ "\x1B[0m>>>"
-  lib <- buildKernel source ["kernel"]
+  lib <- buildKernel source "kernel"
 
   let result_type = typeOf expr
       result_size = sizeofSTy result_type
@@ -86,7 +86,7 @@ compile = \env expr -> do
     allocaBytes (koResultOffset offsets + result_size) $ \ptr -> do
       let args = zip (reverse (unSList Some (slistZip env val))) (koArgOffsets offsets)
       serialiseArguments args ptr $ do
-        callKernelFun "kernel" lib ptr
+        callKernelFun lib ptr
         ok <- peekByteOff @Word8 ptr (koOkResOffset offsets)
         when (ok /= 1) $
           ioError (mkIOError userErrorType "fatal error detected during chad kernel execution (memory has been leaked)" Nothing Nothing)