@@ -306,8 +306,7 @@ handleLunapark inp = case _ of
306 R.liftEffect $ Ref.write ts inp.timeoutsRef
306 R.liftEffect $ Ref.write ts inp.timeoutsRef
307 tryAndCache "set timeouts"
307 tryAndCache "set timeouts"
308 [ void $ post (inSession : LP.Timeouts : Nil) (LT.encodeTimeouts ts)
308 [ void $ post (inSession : LP.Timeouts : Nil) (LT.encodeTimeouts ts)
309− , do T.for_ (LT.encodeLegacyTimeouts ts) \j →
309+ , T.for_ (LT.encodeLegacyTimeouts ts) (post (inSession : LP.Timeouts : Nil))
310− void $ post (inSession : LP.Timeouts : Nil) j
312 pure next
311 pure next
313 GoTo uri next → do
312 GoTo uri next → do