From 24d0a748bdbed1351fa63487ee3bc7435168afe4 Mon Sep 17 00:00:00 2001
From: Karl Ostmo <kostmo@gmail.com>
Date: Mon, 18 Sep 2023 22:55:01 -0700
Subject: [PATCH] fix benchmark

---
 bench/Benchmark.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bench/Benchmark.hs b/bench/Benchmark.hs
index cbbac6ee8..7459eebd4 100644
--- a/bench/Benchmark.hs
+++ b/bench/Benchmark.hs
@@ -76,7 +76,7 @@ circlerProgram =
 
 -- | Initializes a robot with program prog at location loc facing north.
 initRobot :: ProcessedTerm -> Location -> TRobot
-initRobot prog loc = mkRobot () Nothing "" mempty (Just $ Cosmic DefaultRootSubworld loc) north defaultRobotDisplay (initMachine prog Context.empty emptyStore) [] [] False False 0
+initRobot prog loc = mkRobot () Nothing "" mempty (Just $ Cosmic DefaultRootSubworld loc) north defaultRobotDisplay (initMachine prog Context.empty emptyStore) [] [] False False mempty 0
 
 -- | Creates a GameState with numRobot copies of robot on a blank map, aligned
 --   in a row starting at (0,0) and spreading east.