Fix interaction tree demos and HTTP recv 4096

2026-09-08 15:51:28 -05:00
parent d54ad558a8
commit 18da2923e0
10 changed files with 10 additions and 10 deletions
--- a/demos/interactionTrees/arboricxServer.tri
+++ b/demos/interactionTrees/arboricxServer.tri
@@ -1,4 +1,4 @@
-!import prelude !Local
+!import "prelude" !Local
 !import "io"              !Local
 !import "arboricx.server" !Local

--- a/demos/interactionTrees/environment.tri
+++ b/demos/interactionTrees/environment.tri
@@ -1,4 +1,4 @@
-!import prelude !Local
+!import "prelude" !Local
 !import "io"   !Local

 -- Environment effects: ask and local.
--- a/demos/interactionTrees/forkAwait.tri
+++ b/demos/interactionTrees/forkAwait.tri
@@ -1,4 +1,4 @@
-!import prelude !Local
+!import "prelude" !Local
 !import "io"   !Local

 -- Basic fork and await.
--- a/demos/interactionTrees/greet.tri
+++ b/demos/interactionTrees/greet.tri
@@ -1,4 +1,4 @@
-!import prelude !Local
+!import "prelude" !Local
 !import "io"   !Local

 -- Greet and return a pure value.
--- a/demos/interactionTrees/safeRead.tri
+++ b/demos/interactionTrees/safeRead.tri
@@ -1,4 +1,4 @@
-!import prelude !Local
+!import "prelude" !Local
 !import "io"   !Local

 -- readFile returns a Result.  matchResult branches on ok / err.
--- a/demos/interactionTrees/shout.tri
+++ b/demos/interactionTrees/shout.tri
@@ -1,4 +1,4 @@
-!import prelude !Local
+!import "prelude" !Local
 !import "io"   !Local

 -- Transform an IO result.
--- a/demos/interactionTrees/state.tri
+++ b/demos/interactionTrees/state.tri
@@ -1,4 +1,4 @@
-!import prelude !Local
+!import "prelude" !Local
 !import "io"   !Local

 -- Mutable state via get and put.
--- a/demos/interactionTrees/writeThenRead.tri
+++ b/demos/interactionTrees/writeThenRead.tri
@@ -1,4 +1,4 @@
-!import prelude !Local
+!import "prelude" !Local
 !import "io"   !Local

 -- Write a file, then read it back.
--- a/demos/interactionTrees/yield.tri
+++ b/demos/interactionTrees/yield.tri
@@ -1,4 +1,4 @@
-!import prelude !Local
+!import "prelude" !Local
 !import "io"   !Local

 -- Cooperative scheduling with yield.
--- a/lib/http.tri
+++ b/lib/http.tri
@@ -152,7 +152,7 @@ responseForMethod = (method resp :
 -- ---------------------------------------------------------------------------

 recvUntilMax_ = (y (self sock pattern maxBytes acc accLen :
-  onResult_ (recv sock 1)
+  onResult_ (recv sock 4096)
    (err :
      pure (err 400 acc))
    (chunk :