From b476d31b8e0e182455dbe027fb424b213b02bb91 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Fri, 2 Jun 2023 15:11:50 -0400
Subject: Fix web-image.folk

---
 user-programs/haippi7/web-image.folk | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'user-programs')

diff --git a/user-programs/haippi7/web-image.folk b/user-programs/haippi7/web-image.folk
index 104cb43b..8c437ce9 100644
--- a/user-programs/haippi7/web-image.folk
+++ b/user-programs/haippi7/web-image.folk
@@ -81,7 +81,7 @@ c loadlib [lindex [exec /usr/sbin/ldconfig -p | grep libjpeg] end]
 $cc compile
 
 When the camera frame is /im/ {
-  Wish the web server handles route "/frame-image/$" with handler [list Evaluator::tryRunInSerializedEnvironment {
+  Wish the web server handles route "/frame-image/$" with handler [list apply {{im} {
     # set width [dict get $im width]
     # set height [dict get $im height]
     set filename "/tmp/web-image-frame.jpg"
@@ -92,5 +92,5 @@ When the camera frame is /im/ {
     set body [read $fd $fsize]
     close $fd
     dict create statusAndHeaders "HTTP/1.1 200 OK\nConnection: close\nContent-Type: image/jpeg\nContent-Length: $fsize\n\n" body $body
-  } [Evaluator::serializeEnvironment]]
+  }} $im]
 }
\ No newline at end of file
-- 
cgit v1.2.3