From ae2b1b71a91d60d3bd1dfb21fce98c05c1a4fcbb Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 26 Nov 2024 15:25:13 +0100
Subject: WIP accum top-level args

---
 bench/Main.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'bench')

diff --git a/bench/Main.hs b/bench/Main.hs
index 932da9d..5d2cb5a 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -20,7 +20,6 @@ import GHC.Exts (withDict)
 import AST
 import Array
 import qualified CHAD (defaultConfig)
-import CHAD (CHADConfig(..))
 import CHAD.Top
 import CHAD.Types
 import Data
@@ -112,9 +111,7 @@ makeGMMInputs =
      SNil
 
 accumConfig :: CHADConfig
-accumConfig = CHADConfig
-  { chcLetArrayAccum = True
-  , chcCaseArrayAccum = True }
+accumConfig = chcSetAccum CHAD.defaultConfig
 
 main :: IO ()
 main = defaultMain
-- 
cgit v1.2.3-70-g09d2