From bd2565141d13173ba19534a245227d1164e23355 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Fri, 18 Oct 2024 15:47:45 +1100
Subject: change stream priority

---
 jterm.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/jterm.hs b/jterm.hs
index 80ea684..50e4555 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -516,4 +516,4 @@ main = do
             selectInput display win (exposureMask .|. buttonPressMask .|. buttonReleaseMask .|. keyPressMask .|. pointerMotionMask)
             allocaXEvent $ \e ->
               flip runStateT (Buffer 0 "" (0, 0) Nothing pty 0) $
-                S.parList (S.eager True) [S.repeatM (lift $ waitEvent display e), S.repeatM (lift $ watch pty)] & S.fold (F.drainMapM (handleEvent display win bgcolour fgcolour linecolour selcolour font))
+                S.parList id [S.repeatM (lift $ watch pty), S.repeatM (lift $ waitEvent display e)] & S.fold (F.drainMapM (handleEvent display win bgcolour fgcolour linecolour selcolour font))
-- 
cgit v1.2.3