change stream priority

1 files changed, 1 insertions, 1 deletions

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))