WIP accum top-level args

1 files changed, 1 insertions, 4 deletions

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