diff options
| author | David Roundy <droundy@darcs.net> | 2007-08-27 20:58:58 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-08-27 20:58:58 +0200 |
| commit | a6212291c0b54907b98e8f9b3e535aa14062fd3a (patch) | |
| tree | d18356be675803d0a766eb26d64cea0f65f4926e | |
| parent | 8f54ab4d1e6c7f9a037522ffb45e89895a6389fd (diff) | |
| download | XMonadContrib-a6212291c0b54907b98e8f9b3e535aa14062fd3a.tar.gz XMonadContrib-a6212291c0b54907b98e8f9b3e535aa14062fd3a.tar.xz XMonadContrib-a6212291c0b54907b98e8f9b3e535aa14062fd3a.zip | |
fix bug leading to early exit in XPrompt.
darcs-hash:20070827185858-72aca-b770e1c7723cd4c879200243ef8300f8e5ca85cb.gz
Diffstat (limited to '')
| -rw-r--r-- | XPrompt.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -220,7 +220,8 @@ handle ks (KeyEvent {ev_event_type = t, ev_state = m}) handle _ (AnyEvent {ev_event_type = t, ev_window = w}) | t == expose = do st <- get - when (win st == w) $ updateWindows >> eventLoop handle + when (win st == w) updateWindows + eventLoop handle handle _ _ = eventLoop handle -- completion event handler |