diff options
Diffstat (limited to 'jterm.hs')
-rw-r--r-- | jterm.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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)) |