From 1640830bf5dc0630481e698512064215eb3e8249 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 10 Oct 2021 19:55:59 +0200
Subject: WIP

---
 SC/Acc.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'SC/Acc.hs')

diff --git a/SC/Acc.hs b/SC/Acc.hs
index 5ae2532..a0ef6b4 100644
--- a/SC/Acc.hs
+++ b/SC/Acc.hs
@@ -88,6 +88,8 @@ compilePAcc' aenv destnames = \case
               usedA = map (\(TypedAName _ n) -> n) (itupList arrnames)
           return [CChunk [] sts usedA]
 
+    A.Anil -> return []
+
     A.Apair a b
       | ANPair destnames1 destnames2 <- destnames -> do
           res1 <- compileAcc' aenv destnames1 a
-- 
cgit v1.2.3-70-g09d2