Fix interaction tree demos and HTTP recv 4096
This commit is contained in:
@@ -1,4 +1,4 @@
|
|||||||
!import prelude !Local
|
!import "prelude" !Local
|
||||||
!import "io" !Local
|
!import "io" !Local
|
||||||
!import "arboricx.server" !Local
|
!import "arboricx.server" !Local
|
||||||
|
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
!import prelude !Local
|
!import "prelude" !Local
|
||||||
!import "io" !Local
|
!import "io" !Local
|
||||||
|
|
||||||
-- Environment effects: ask and local.
|
-- Environment effects: ask and local.
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
!import prelude !Local
|
!import "prelude" !Local
|
||||||
!import "io" !Local
|
!import "io" !Local
|
||||||
|
|
||||||
-- Basic fork and await.
|
-- Basic fork and await.
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
!import prelude !Local
|
!import "prelude" !Local
|
||||||
!import "io" !Local
|
!import "io" !Local
|
||||||
|
|
||||||
-- Greet and return a pure value.
|
-- Greet and return a pure value.
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
!import prelude !Local
|
!import "prelude" !Local
|
||||||
!import "io" !Local
|
!import "io" !Local
|
||||||
|
|
||||||
-- readFile returns a Result. matchResult branches on ok / err.
|
-- readFile returns a Result. matchResult branches on ok / err.
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
!import prelude !Local
|
!import "prelude" !Local
|
||||||
!import "io" !Local
|
!import "io" !Local
|
||||||
|
|
||||||
-- Transform an IO result.
|
-- Transform an IO result.
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
!import prelude !Local
|
!import "prelude" !Local
|
||||||
!import "io" !Local
|
!import "io" !Local
|
||||||
|
|
||||||
-- Mutable state via get and put.
|
-- Mutable state via get and put.
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
!import prelude !Local
|
!import "prelude" !Local
|
||||||
!import "io" !Local
|
!import "io" !Local
|
||||||
|
|
||||||
-- Write a file, then read it back.
|
-- Write a file, then read it back.
|
||||||
|
|||||||
@@ -1,4 +1,4 @@
|
|||||||
!import prelude !Local
|
!import "prelude" !Local
|
||||||
!import "io" !Local
|
!import "io" !Local
|
||||||
|
|
||||||
-- Cooperative scheduling with yield.
|
-- Cooperative scheduling with yield.
|
||||||
|
|||||||
@@ -152,7 +152,7 @@ responseForMethod = (method resp :
|
|||||||
-- ---------------------------------------------------------------------------
|
-- ---------------------------------------------------------------------------
|
||||||
|
|
||||||
recvUntilMax_ = (y (self sock pattern maxBytes acc accLen :
|
recvUntilMax_ = (y (self sock pattern maxBytes acc accLen :
|
||||||
onResult_ (recv sock 1)
|
onResult_ (recv sock 4096)
|
||||||
(err :
|
(err :
|
||||||
pure (err 400 acc))
|
pure (err 400 acc))
|
||||||
(chunk :
|
(chunk :
|
||||||
|
|||||||
Reference in New Issue
Block a user