NewSignal now has a name

dpvanbalen · Apr 10, 2024 · d574656 · d574656
1 parent feacb21
commit d574656
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/accelerate-llvm-native/src/Data/Array/Accelerate/LLVM/Native/Execute.hs b/accelerate-llvm-native/src/Data/Array/Accelerate/LLVM/Native/Execute.hs
@@ -111,7 +111,7 @@ executeBinding :: Workers -> NativeEnv env -> BasesR t -> Binding env t -> IO (V
 executeBinding workers !env tp = \case
   Compute expr ->
     return $ values workers tp $ evalExp expr $ evalArrayInstr env
-  NewSignal -> do
+  NewSignal _ -> do
     signal <- newSignal
     return $ ValuesSingle (Value signal) `ValuesPair` ValuesSingle (Value signal)
   NewRef _ -> do